/* BUST Module for LISTEN Program */ 
/* Disk Functions */ 

/* Copyright 1991-9 by James Hoyt Clark */ 

#include <stdio.h> 
#include <stdlib.h> 
#include <graphics.h> 
^include <io.h> 
#include <fcntl.h> 
#include "twindow.h" 
#include ,, keys.h ,, 

extern struct holdrecord 

{ 

char name[31]; 
char id[8]; 

unsigned char numO; 
unsigned char numl; 
unsigned char num2; 
unsigned char num3; 
unsigned char num4; 
unsigned char num5; 
unsigned char num6; 
unsigned char num7; 
unsigned char num8; 
unsigned char num9; 
unsigned char potency[ll]; 
unsigned char potnum[3]; 
unsigned char max; 
unsigned char min; 
unsigned char rise; 
unsigned char fall; 
unsigned char tag; 

}; - 

extern struct holdrecord hold[90]; 
extern struct filrecordl 

{ • 

char name[31]; 
char id[8]; 

unsigned char numO; 
unsigned char numl; 
unsigned char num2; 
unsigned char num3 ; 
unsigned char num4; 



unsigned char num5; 
unsigned char num6; 
unsigned char num7; 
unsigned char num8; 
unsigned char num9; 
unsigned char potency [1 1]; 
unsigned char potnum[3]; 
unsigned char tag; 

}; 

extern struct filrecordl filter 1 [50]; 
extern struct filrecord2 

{ 

char name[31]; 
char id[8]; 

unsigned char numO; 
unsigned char numl; 
unsigned char num2; 
unsigned char num3; 
unsigned char num4; 
unsigned char num5; 
unsigned char num6; 
unsigned char num7; 
unsigned char num8; 
unsigned char num9; 
unsigned char potency [1 1]; 
unsigned char potnum[3]; 
unsigned char tag; 

}; 

extern struct filrecord2 filter2[50]; 
extern struct potrecord 

{ 

char narne[8]; 
char num[6]; 
char CR; 
char LF; 

}; 

extern struct potrecord pot[1000]; 

extern void (*helpfiinc)0; 
extern void helpO; 
extern char dilutionflag; 
extern char outname[31]; 
extern char outid[8]; 



extern unsigned char outnumO; 
extern unsigned char outnuml; 
extern unsigned char outnum2; 
extern unsigned char outnum3; 
extern unsigned char outnum4; 
extern unsigned char outnumS; 
extern unsigned char outnum6; 
extern unsigned char outnum7; 
extern unsigned char outnum8; 
extern unsigned char outnum9; 
extern unsigned char outdilution; 
extern int potpoint; 
extern int npot; 
extern int dilindex; 
extern char ifgraphic; 
extern char filteroutflag; 
extern char whichallergy; 
extern char h; 
extern char fcntl; 
extern char fcnt2; 
extern int nhold; 
extern int nfilter; 
extern char pnum; 
extern char ntags; 
extern char nfltags; 
extern char nf2tags; 
extern int reportpoint; 
extern long int npoint; 
extern char pointflag; 
extern int pointcolor; 
extern char outholdflag; 
extern int basecolor; 
extern int letter 1 color; 
extern int letter2color; 
extern int letter3 color; 
extern int accentcolor; 
extern char whichDRTVE; 
extern int usedeletes; 
extern int defaultvalues[100]; 
extern unsigned char max; 
extern unsigned char min; 
extern unsigned char rise; 
extern unsigned char fall; 
extern char fromkey; 
extern long int start; 



extern char msg_line[80]; 

extern char board; 

extern int wavepoint; 

extern unsigned char cPotNump]; 

char name[31]; 
char id[8]; 

unsigned char numO; 
unsigned char numl; 
unsigned char num2; 
unsigned char num3; 
unsigned char num4; 
unsigned char num5; 
unsigned char num6; 
unsigned char num7; 
unsigned char num8; 
unsigned char num9; 
unsigned char dilution; 
char lastdilution; 
char biblio; 
int num[5]; 

static int dil0[13] = {0,5,6,7,8,9,10,13,15,16,17,99,10}; 
static int dill[13]= {0,6,7,8,9,10,13,15,16,17,18,99,10}; 
static int dil2[13] = {0,8,9,13,15,16,17,18,19,20,21,99,10}; 
static int dil3[13] = {0,10,11,13,15,16,17,18,19,20,21,99,10}; 
static int dUz[13] = {0,3,4,5,6,7,8,9,10,13,15,99,10}; 

static int dilr[18] = {0,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,99,15}; 
static int dils[20] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,23,24,25,26,99,17}; 
static int caps[9] = {0,55,56,57,58,59,60,99,6}; 

static int drop[23] = {0,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76, 

77,78,79,80,99,20}; 

/*staticintdilq[134] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20, 

21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38, 
39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56, 
57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74, 
75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92, 

93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108, 

109,110,111,112,113,114,115,116,117,118,119,120,121, 
122,123,124,125,126,127,128,129,130,131,999,131};*/ 

static int dilq[289] = {0,1,2,3,4,5,6,7,8,9,10, 

11,12,13,14,15,16,17,18,19,20, 
21,22,23,24,25,26,27,28,29,30, 
31,32,33,34,35,36,37,38,39,40, 



41,42,43,44,45,46,47,48,49,50, 

5 1,52,53,54,55,56,57,58,59,60, 

61,62,63,64,65,66,67,68,69,70, 

71,72,73,74,75,76,77,78,79,80, 

81,82,83,84,85,86,87,88,89,90, 

91,92,93,94,95,96,97,98,99,100, 

101,102,103,104,105,106,107,108,109,110, 

111,112,113,114,115,116,117,118,119,120, 

121,122,123,124,125,126,127,128,129,130, 

131,132,133,134,135,136,137,138,139,140, 

141,142,143,144,145,146,147,148,149,150, 

151,152,153,154,155,156,157,158,159,160, 

161,162,163,164,165,166,167,168,169,170, 

171,172,173,174,175,176,177,178,179,180, 

181,182,183,184,185,186,187,188,189,190, 

1 9 1 , 192, 1 93 , 1 94, 1 95, 1 96, 1 97, 1 98, 1 99,200, 

201,202,203,204,205,206,207,208,209,210, 

211,212,213,214,215,216,217,218,219,220, 

221,222,223,224,225,226,227,228,229,230, 

23 1 ,232,23 3 ,23 4,23 5,23 6,23 7,23 8,23 9,240, 

241,242,243,244,245,246,247,248,249,250, 

251,252,253,254,255,256,257,258,259,260, 

261,262,263,264,265,266,267,268,269,270, 

271,272,273,274,275,276,277,278,279,280, 

281,282,283,284,285,286, 

999,286}; 



void getproduct(long int position) 
{ 

char diskbuffer[51]; 
int fhandle,i,j; 

if ((fhandle=open("MASTER.DAT",0_RDONLY|0_BINARY)) = -1) { 
printf("open failed"); 
exit(l); 

} 

lseek(fhandle,5 1 *position,SEEK_CUR); 
if ((read(fhandle,diskbuffer,51)) = -1) { 

perror("read error"); 

exit(l); 

} 

strncpy(name,diskbuffer,3 1); 
j=0; 

for(i=31;i<39; i++) { 

idO]=diskbuffer[i]; 



} 

numO = diskbuffer[39]; 
numl = diskbuffer[40]; 
num2 = cUskbuffer[41]; 
num3 = diskbuffer[42]; 
num4 = diskbuffer[43]; 
num5 = diskbuffer[44]; 
num6 = diskbuffer[45]; 
num7 = diskbuffer[46]; 
num8 = diskbuffer[47]; 
num9 = diskbuffer[48]; 
dilution = diskbuffer[49]; 
biblio = diskbuffer[50]; 
close(fhandle); 

> 

/* Disk Operations */ 
void readholdfileO 

{ 

FILE *fptr; 
h=0; 

if( (Q)tr-fopen("C:\\WORK\\HOLD.DAT","rb"))=NULL ) { 
operationinfo (" errorfl" , 1 0, 5 ,yeskey); 
exit(0); 

} 

else { 

while(fread(&hold[h] 3 sizeof(hold[0]) 5 l ? Q)tr)=l ) h++; 
fclose(fptr); 

} 

h~; 
} 

void writeholdfileO 

{ 

FILE *fptr; 

if ((^tr=fopen("C:\\WORK\\HOLD.DAT" > "wb"))=NULL ) { 
operationinfo("errorfl", 1 0, 5,yeskey); 
exit(0); 
} 

else { 

fwrite(hold, sizeof(hold[0]),h+ 1 ,fptr); 
fclose(fptr); 

} 

} 



void readfilterlO 

{ 

FILE *fptr; 
fcntl=0; 

if ((^tp=fopen("C:\\WORK\\FILTERl.DAT , V , rb M ))=NULL ) { 
operationinfo("errorfl", 1 0,5,yeskey); 
exit(O); 
} 

else { 

wMle(fread(&mterl[fcntl] 5 sizeof(fUterl[0]) 5 l 3 Q)tr)=l ) fcntl++; 
fclose(fptr); 

> 

fcntl--; 

} 

void writefilterlO 

{ 

FILE *fptr; 

int fl count=fcnt 1 + 1 ; 

if ((^tr=fopen("C:\\WORK\\FILTERl.DAT" 3 "wb ,, ))=NULL ) { 
op erationinfo(" errorfl" ,10,5 ,yeskey); 
exit(O); 

} 

else { 

fwrite(filterl 5 sizeof(filterl [O]),flcount,fptr); 
fclose(fptr); 

> 

> 

void readfilter2() 

{ 

FILE *fptr; 
fcnt2=0; 

if ((fptr=fopen("C:\\WORK\\FILTER2.DAT , V , rb"))=NULL ) { 
operationinfo("errorfl",10,5,yeskey); 
exit(0); 
} 

else { 

wMe(fread(^lter2[fcnt2] 3 sizeof(mter2[0])J,fptr)=l ) fcnt2++; 
fclose(fptr); 

> 

fcnt2--; 

} 



void writefilter2(3 



{ 

FILE *fptr; 

int £2count=fcnt2+l; 

if((fpti-=fopen( ,, C:\\WORK\\FILTER2.DAT , V l wb ,, ))=NULL ) { 
operationinfo("errorfl", 1 0,5,yeskey); 
exit(O); 
} 

else { 

fwrite(filter2 3 sizeof(filter2[0]) 3 f2count ? fptr); 
fclose(fptr); 

} 

} 

void clear_all() 

{ 

long intj; 
int key; 

key=operationinfo("clrvst " 5 4 5 4,yeskey); 
if(key = *Y') { 

usedeletes-H-; 

defaultvalues[28]=usedeletes; 
writedefaultsO; 

for (j=0; j<npoint; j++) zeropoint(j); 

writepointfileO; 

h=-l; 

reportpoint=-l; 

pointflag=0; 

outholdflag=0; 

pointcolor=basecolor; 

display__pointsO; 

setpointwindowO; 

} 

else tellcanceledO; 

/* Dilution */ 
void getdilutionO 

{ 

if (dilutionflag) { 

if (potpoint < 0) potpoint=286; //??????? 1 3 1 

if (potpoint > dilq[286]) potpoint=0; //131 

dilindex=dilq[potpoint] ; 

potencynumO; 

return; 



} 

if(outdilution = , 0') { 

if (potpoint < 0) potpoint=10; 

if (potpoint > dil0[12]) potpoint=0; 

dilindex=dilO[potpoint]; 

} 

if(outdilution = T) { 

if (potpoint < 0) potpoint=10; 

if (potpoint > dill [12]) potpoint=0; 

dilindex=dill [potpoint]; 

} 

if(outdilution = '2') { 

if (potpoint < 0) potpoint=10; 

if (potpoint > dil2[12]) potpoint=0; 

dilindex=dil2 [p otp oint] ; 

} 

if(outdilution = '3') { 

if (potpoint < 0) potpoint=10; 

if (potpoint > dil3[12]) potpoint=0; 

dilindex=dil3 [potpoint] ; 

} 

if(outdilution = 'Z') { 

if (potpoint < 0) potpoint=10; 

if (potpoint > dilz[12]) potpointO; 

dilindex=dilz[potpoint] ; 

} 

if (outdilution = 'A') { 

if (whichallergy) { 

if (potpoint < 0) potpoint=15; 

if (potpoint > dilr[17]) potpoint=0; 

dilindex=dilr[potpoint] ; 

> 

else outdilution- S 1 ; 

if(outdilution = 'S') { 

if (potpoint < 0) potpoint=17; 

if (potpoint > dils[19]) potpoint=0; 

dilindex=dils[potpoint]; 

} 

if(outdilution = 'c') { 

if (potpoint < 0) potpoint=6; 

if (potpoint > caps[8]) potpoint=0; 

dilindex=caps [potpoint] ; 

} 

if (outdilution = 'd') { 



if (potpoint < 0) potpoint=20; 

if (potpoint > drop[22]) potpoint=0; 

dilindex=drop[potpoint]; 

} 

if(outdilution = V) { 
potpoint=0; 
dilindex=dilr[potpoint] ; 

} 

potencynumO; 

} 

void displaydilution(WINDOW *wnd_dilution,int i) 

{ 

char sName[8]; 
intj; 

for O=0;j<8;j++) 

sName[j] = pot[dilindex].name[j]; 
sName[7] = 0; 

wprintf(wnd_dilution,'' %s",sName); 

if (i % 8 = 0) wprintfCw^dilution/W'); 

} 

void switchdilution(int XCM) 

{ 

int i; 

for (i=0; i<npot; i++) { 

if (pot[i].name[l] = XCM) { 
potpoint=i; 
break; 

} 

} 

putchar(BELL); 
getpot(potpoint); 

} 

void alldilutionsO 

{ 

WINDOW *wnd_dilution; 
int i,key; 

setmenuhelp("dilutn ", 1 0, 1 0); 

wnd_dilution = establish_window(3, 3,22,77); 

set_colors(wnd_dilution,ALL,GREEN,BLACK,DIM); 

set_colors(wnd_dilution,ACCENT,WHITE,BLACK,DIM); 

display_window(wnd_dilution); 

i=0; 



dilindex=0; 

if (dilutionflag) { 

showline( " msg_MasterDiluti ") ; 

wprintf(wnd_dilutioii ) msg_line); 

while (dilindex != 999) { 
dilindex=dilq[i]; 

if (dilindex != 999) displaydilution(wnd_dilution,i); 
} 

wprintf(wnd_dilution 5 "\n"); 

} 

i=0; 

dilindex=0; 

if(outdilution = '0') { 

showline("msg_ArnicaKUFSta"); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=dilO[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

i++; 

} 

} 

if(outdilution = 'l') { 

showline("msg_AraicaKUFl "); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=dill[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

in-; 

} 

} 

if(outdilution='2') { 

showline("msg_ArnicaKUF2 "); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=dil2[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

i++; 

} 

} 

if(outdilution = '3') { 

showline("msg_ArnicaKUF3 "); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=dil3[i]; 



if (dilindex != 99) displaydUution(wnd_dilution,i); 

i++; 

} 

} 

if(outdilution = , Z') { 

showline("msg_ArnicaZ "); 
wprintf(wnd_dilution,nisg_line); 
while (dilindex != 99) { 
dilindex=dilz[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

i-H-; 

} 

} 

if (outdilution = ' A') { 

if (whichallergy) { 

showline("msg_RinkelAllerg"); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=dilr[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 
i++; 

} 

} 

else outdilution- S'; 

} 

if(outdilution = 'S') { 

showline("msg_StandardLow "); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=dils[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

i++; 

} 

} 

if (outdilution = 'c') { 

showline("msg_Capsule "); 
wprintf(wnd_dilution,msg_line); 
while (dilindex != 99) { 
dilindex=caps[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

i++; 

} 

} 

if (outdilution = 'd') { 

showhne("msg_Drop "); 



wprintf(wnd_dilution 5 msg_line); 
while (dilindex != 99) { 
dilindex=drop[i]; 

if (dilindex != 99) displaydilution(wnd_dilution,i); 

} 

} 

if (outdilution = V) { 

showline("msg_CombinationO "); 

wprintf(wndjjilution,msg_line); 

dilindex=0; 

displaydilution(wnd_dilution, 0); 

} 

key=0; 

while (key != ESC) { 

key = get_char(); 
key = toupper(key); 
switch(key) { 

case V: prevpotO; break; 
case 7: nxtpotO; break; 
case 'Z': fromkey='3'; 

potpoint=scan(l); 
helpfunc=help; 
getpot(potpoint); 
fromkey='r; 
break; 
case 'A': getpot(O); 

break; 
case INS: setpot(); 

break; 

case UP: 

break; 

case DN: 

break; 

default: break; 

} 

} 

delete_window(wnd_dilution); 

} 

/* Set for Output */ 

void loadout() 

{ 

strcpy(outname,name); 



strcpy(outid,id); 

outnumO=numO; 

outnuml=numl; 

outnum2=num2; 

outnum3=num3; 

outnum4=num4 ; 

outnum5=num5; 

outnum6=num6; 

outnum7=num7; 

outnum8=num8; 

outnum9=num9; 

outdilution=dilution; 

if (lastdilution != dilution) { 

if (ifgraphic) displaypotgraphO; 

else getpot(potpoint); 

lastdilution=dilution; 

} 

} 

/* Hold */ 

void counttagsO 
{ 

int i; 
ntags=0; 

for (i=0; i<h+l; i++) if (hold[i].tag) ntags++; 
} 

void holduntagsO 

{ 

int i; 

for 0=0; i<nhold+l; i++) hold[i].tag = 0; 
} 

void allholdtagsO 

{ 

int i; 

for (i=0; i<nhold+l; i++) hold[i].tag = 1; 
} 

void deletehold() 

{ 

int c; 

if(h<0) { 

twobellsQ; 



return; 

c=operationinfo("clrHold", 1 0, 1 0,yeskey); 
if(c = 'Y') { 
h = -l; 

operationinfo("Holdclr", 1 0, 10,nokey); 
} 

else tellcanceledO; 

} 

void deleteonehold(int hpt) 

{ 

int ptr; 

for (ptr=hpt; ptr<h+l; ptr++) { 

strcpy (hold[ptr] . name,hold [ptr+ 1 ] . name); 
strcpy(hold[ptr].id,hold[ptr+l ] .id); 
strcpy(hold[ptr] . potency ,hold[ptr+ 1 ] .potency) ; 



hold[ptr 
hold[ptr 
holdfptr 
hold[ptr 
holdfptr 
holdfptr; 
hold[ptr 
hold[ptr 
hold[ptr 
hold[ptr 
holdfptr 
hold[ptr; 
hold[ptr 
hold[ptr 
hold[ptr 
hold [ptr 
hold[ptr; 
hold[ptr 



.potnum[0] = hold[ptr+l].potnum[0]; 
.potnum[l] =hold[ptr+l].potnum[l]; 
.potnum[2] = hold[ptr+l].potnum[2]; 



h- 

} 



).num0 = hold[ptr+l].numO; 
].numl = hold[ptr+l].numl; 
.num2 = hold[ptr+l].num2; 
].num3 =hold[ptr+l].num3; 
.num4 = hold[ptr+l].num4; 
.num5 = hold[ptr+l].num5; 
.num6 = hold[ptH-l].num6; 
].num7 = hold[ptr+l].num7; 
].num8 = hold[ptr+l].num8; 
.num9 = hold[ptr+l].num9; 
J.max = hold [ptr+1], max; 
. min = hold [ptr+ 1 ] . min; 
].rise = hold[ptr+l].rise; 
).fall = hold[ptr+l].fall; 
.tag = hold [ptr+1]. tag; 
strcpy(holdv[ptr] .ptname 3 holdv[ptr+l ] .ptname); 
holdv[ptr] . voltage=holdv[ptr+ 1 ] .voltage; 
strcpy(holdv[ptr] .freqname,holdv[ptr+ 1 ] .freqname); 
holdv[ptr] . wavepoint=holdv[ptr+ 1 ] . wavepoint; 
holdv[ptr] . y=holdv[ptr+ 1 ] . y ; 
holdv[ptr].z=holdv[ptr+l].z;*/ 

} 



void viewholdO 

{ 

int ij 3 temp 3 key=0; 

int hpoint, start, end; 

WINDOW *wnd_hold; 

char lineinfo=l; 

setmenuhelp("hold ",0,0); 

wnd_hold = establish_window(0 5 0,25 5 80); 

showline( M msg_HoldList "); 

set_title(wnd_hold,msg_line); 

set_colors(wnd_hold,ALL 3 letter3color,AQUA,DIM); 

set_colors(wnd_hold ; ACCENT 3 accentcolor 3 WHITE 5 BRIGHT); 

display_window(wnd_hold) ; 

hpoint=0; 

start=0; 

while (key !=ESC) { 

wcursor(wnd_hold 3 0 3 0) ; 

if (start+20 <= h) end = start+20; 

else end = h+1; 

for (j=start; j<end; j-H-) { 

if (j = hpoint) reverse_video(wnd_hold); 

if (hold[j].tag = 1) temp=16; 

else temp = ' '; 

wputchar(wnd_hold,temp); 

wprintf(wnd_hold 3 H %#2d. %s %s M j+l,hold[j].name 3 hold[j].id); 
if (lineinfo) { 

wprintf(wnd_hold, n %#3d",hold[j].max); 

wprintf(wnd_hold, n %#3d" 3 holdG].min); 

wprintf(wnd_hold 3 n %#3d" 5 hold0]-rise); 

wprintf(wnd_hold, " %#3 d",holdD] .fall); 

wprintf(wnd_hold, " % s " 3 hold [j ] . p ot ency) ; 

} 

if (end !=j) wprintf(wnd_hold ; "\n"); 
normal_video(wnd_hold); 

} 

counttagsO; 

wcursor(wnd_hold, 10,22); 

showline("msg_HoldTagLimit"); 

wprintf(wnd_hold 5 msg_line 3 h+l ? ntags 3 nhold+l); 

key = get_char0; 

key = toupper(key); 

switch(key) { 

case ' if (hold[hpoint].tag = 1) hold[hpoint].tag=0; 
else hold[hpoint].tag = 1; 

case RSWITCH: 



case DN: hpoint-H-; 

if (hpoint>h) { 
hpoint=0; 
start=0; 

} 

if(hpoint> start* 19) { 
start = hpoint; 
clear jvvindow(wnd_hold); 

} 

break; 
case LSWITCH: 
case UP: hpoint—; 

if (hpoint <0) { 
hpoint=h; 
start=h-19; 
if(start<0)start=0; 

} 

if (hpoint < start) { 

start=hpoint-19; 
clear_window(wnd_hold); 
if (start <0) { 
start=0; 
hpoint=0; 

} 

} 

break; 

case PGUP: start=start-20; 

if(start<0) start=0; 
clear_window(wnd_hold) ; 
hpoint=start+19; 
break; 

case PGDN: start = start+20; 

if (start >h) start=0; 
clear_window(wnd_hold) ; 
hpoint=start; 
break; 

case HOME: start=0; 

hpoint=0; 

break; 
case END: start=h-19; 

if (start <0) start=0; 

hpoint=h; 

break; 

case W: display_time(); break; 
case IT: holduntagsQ; break; 



case T: allholdtagsO; break; 
case 'V: if (lineinfo) lineinfo=0; 

else Iineinfo-H-; 

clear_window(wnd_hold); 

break; 

case 'R': for (j=0; j<h+l; j++) { 

if (hold[j].tag = 1) hold[j].tag 
else hold[j]. tag = 1; 

} 

break; 

case deleteholdO; 

clear_window(wnd_hold); 
break; 

case DEL: if (h < 0) break; 

if (hold <0) break; 

deleteonehold(hpoint); 

beepO; 

clear_window(wnd_hold); 
if (hpoint>h) { 
hpoint--; 

start = hpoint- 19; 
if (start<0) start=0; 
} 

writeholdfileO; 
writeholdvfileO ; */ 
break; 

case ALT_U: if (h < 0) break; 

if (hold <0) break; 
for (i=0; i<h+l;i++) { 

if(hold[i].tag==0) { 

deleteonehold(i); 

i-S 

} 

} 

beepO; 

clear_window(wnd_hold) ; 

hpoint=0; 

start=0; 

writeholdfileO; 

writeholdvfileO; */ 

break; 
case 'P ! : pnum=0; 

printingO; break; 
case 'C: OutputCapsuleO; 

break; 



case ALT P: pnum=0; 

printtagO; break; 

default: break; 

} 

} 

delete_window(wnd_hold); 

} 

/* Filter Operations */ 
void countfltagsO 

{ 

int i; 

nfltags=0; 

for (i=0; i<fcntl+l; i++) if (filter l[i]. tag) nfltags++; 
} 

void fluntagsO 

{ 

int i; 

for (i=0; i<nfilter+l; i++) filter l[i]. tag = 0; 

} 

void allfltagsO 

{ 

int i; 

for (i=0; i<nfilter+l; i++) filterl[i].tag = 1; 

} 

void viewfilterlO 

{ 

int j,temp,key=0; 
long int fpoint 5 fstart,fend; 
int prtstatus; 
char string[50]; 
WINDOW *wnd_filter; 

setmenuhelp( M filter ",0,0); 

wnd_filter = estabHsh_window(39,0,25,41); 

showline("msg_FilterlSel H ); 

set_title(wnd_filter ? msg_line); 

se^colorsCwnd^filter^L^ROWN.BLACK^IM); 

set_colors(wnd_filter,ACCENT ? accentcolor 3 BROWN 5 BRIGHT); 

display_window(wnd_filter) ; 

Q)oint=0; 



fstart=0; 

filteroutflag=l; 

fromkey='r; 

while (key != ESC) { 

wcursor(wnd_filter, 0, 0) ; 

if (fstart+20 <= fcntl) fend = fstart+20; 

else fend = fcntl+1; 

for (j-fstart; j<fend; j++) { 

if (j = fpoint) reverse_video(wnd_filter); 
if (filterlQJ.tag = 1) temp=16; 
else temp = 1 '; 
wputchar(wnd_filter,temp); 
wprintf(wnd_filter ? "%#2d.%s%s", 

j+1 3 filterl [j] .name,filterl [j] .potency); 
if (fend !=j) wprintftwnd^lter/V'); 
normal_video(wnd_filter); 

} 

countfltagsO; 
wcursor(wnd_filter,0,22); 
showline( ,, msg_FiltersTL "); 

wprintf(wnd_filter 3 msg_line ? fcnt 1 + 1 3 nfl tags,nfilter+ 1 ); 

key = get_char(); 

if (key = 0) key=getchQ; 

else key = toupper(key); 

switch(key) { 

case ' ': if (filter 1 [fpoint]. tag = 1) filter l[fpoint].tag=0; 

else filterl [fpoint] .tag = 1; 
case RSWITCH: 
case DN: fpoint-H-; 

if(fpoint> fcntl) { 
fpoint=0; 
fstart=0; 

} 

if (fpoint>fetart+19) { 
fstart = fpoint; 
clear_window(wnd_filter) ; 

} 

break; 
case LSWITCH: 
case UP: fpoint--; 

if (fpoint < 0) { 

fpoint=fcntl; 

fstart=fcntl-19; 

if(fstart<0)fstart=0; 

} 



if (fpoint < fstart) { 

fstart=fpoint-19; 
clear_window(wnd_filter); 
if (fstart <0) { 

fstart=0; 

fpoint=0; 

} 

} 

break; 

case PGUP: fstart=fstart-20; 

if(fstart<0)fstart=0; 

clear_window(wnd_filter); 

fpoint=fstart; 

break; 

case PGDN: fstart = fstart+20; 

if (fstart > fcntl) fstart=0; 

clear_window(wnd_filter); 

fpoint=fstart; 

break; 

case HOME: fstart=0; 

fpoint=0; 
break; 

case END: fstart=fcntl-19; 

if (fstart <0)fstart=0; 

fpoint=fcntl; 

break; 

case W: display_timeO; break; 
case 'U': fluntags(); break; 
case T: allfltagsO; break; 
case '+'; downitemO; break; 
case upitemO; break; 
case V: prevpotO; break; 
case 7: nxtpot(); break; 
case f Z': fpoint=scan(l); 

fstart=^)oint; 

clear_window(wnd_filter) ; 

helpfunc=help; 

break; 

case 'R': for (j=0; j<fcntl+l; j++) { 

if (filter l[j]. tag = 1) filter tag = 0; 
else filter tag = 1; 

} 

break; 

case ALT_M: if (h + nfltags > nhold) break; 

for G = 0;j<fcntl+l;j++) { 



if(filterl[j].tag=l){ 
++h; 

strcpy (hold [h]. name, filter 1 [j] .name); 
strcpy(hold[h].id 3 filterl 0].id); 
strcpy(hold [h] .potency, filter 1 [j] .potency); 
hold[h].potnum[0] = filterlO].potnum[0]; 
hold[h].potnum[l] = filterl[j].potnum[l]; 
hold[h].potnum[2] = filterl[j].potnum[2]; 
hold[h].numO = filterl[j].numO; 
hold[h].numl = filterl[j].numl; 
hold[h].num2 = filter l[j].num2; 
hold[h].num3 = filterl[j].num3; 
hold[h].num4 = filterl[j].num4; 
hold[h].num5 = filter l[j].num5; 
hold[h].num6 = filter l[j].num6; 
hold[h].num7 = filter 1 [j].num7; 
hold[h].num8 = filter l[j].num8; 
hold[h].num9 = filter l[j].num9; 
hold[h].max = max; 
hold[h].min = min; 
hold[h].rise = rise; 
hold[h].fall = fall; 
hold[h].tag= 1; 
} 

} 

twobdlsO; 

writeholdfileO; 

break; 

case DEL: if (fcntl < 0) break; 

for G=fpoint; j<fcntl+l; j++) { 

strcpy(filter 1 [j] .name,filter 1 [j+1 ] .name); 
strcpy(filter 1 [j] .potency,filter 1 0+1 ] .potency); 
fUterl|J].potnum[0] = filterl[j+l].potnum[0]; 
filter l[j].potnum[l] = filterl[j+l].potnum[l]; 
filter l[j].potnum[2] = filterl[j+l].potnum[2]; 
filter l[j].numl = filterl[j+l].numl; 
filter l[j].num2 = filter l[j+l].num2; 
filter l[j].num3 = filterl[j+l].num3; 
filter l[j].num4 = filterl[j+l].num4; 
filterl[j].num5 = filter l[j+l].num5; 
filter l[j]. tag = filterl[j+l].tag; 
} 

fcntl--; 
beepO; 

clear_window(wnd_filter) ; 



if (fpoint > fcntl) { 
fpoint--; 

fstart = fpoint- 19; 
if (fstart<0) fstart=0; 

} 

writefilterlO; 
break; 

INS: if (fcntl <nfilter) { 
fcntl ++; 

for (j=fcntl; j>§)oint-l; j--) { 

str cpy (filter 1 [j + 1 ] . name, filter 1 [j ] . name) ; 
strcpy(filterl [j+ 1 ] .id,filter 1 [j] .id); 
strcpy (filter 1 [j+l].potency,filterl |j]potency) 
filterl|j+l].potnum[0] = filter l[j].potnum[0]; 
filterl[j+l]-potnum[l] = filter l[j].potnum[l]; 
filterl0+l].potnum[2] = filter l[j].potnum[2]; 
filterlU+lj.numO - filter l[j].numO; 
filter l[J+l].numl = filterl[j].numl; 
filterl[j+l].num2 = filter l[j].num2; 
filterl[j+l].num3 = filter l[j].num3; 
filterl[jH- l].num4 = filterl[j].num4; 
filterl[j+l].num5 = filterl[j].num5; 
filter l[j+l].num6 = filterl[j].num6; 
filterl[j-(-l].num7 = filterl[j].num7; 
filterl[j-rl].num8 = filter l[j].num8; 
filterl[j+l].num9 = filter l[j].num9; 
filterl[j+l].tag = filter l[j]. tag; 
} 

strcpy(filter 1 [fpoint] . name, outname); 

strcpy (filter 1 [fpoint]. id,outid); 

strcpy(filter 1 [fpoint] .potency,pot[dilindex] .name); 

filter 1 [fpoint] .potnum[0] = cPotNum[0]; 

filter l[§)oint].potnum[l] = cPotNum[l]; 

filter 1 [fpoint] .potnum[2] = cPotNum[2]; 

filter 1 [fpoint] .numO = outnumO; 

filter 1 [fpoint] .numl = outnuml; 

filt erl [fpoint]. num2 = outnum2; 

fUterl [fpoint] .num3 = outnum3; 

filter 1 [fpoint] .num4 = outnum4; 

filter 1 [fpoint]. num5 = outnumS; 

filter 1 [fpoint]. num6 = outnum6; 

filter 1 [fpoint] .num7 = outnum7; 

filter 1 [fpoint] .num8 = outnum8; 

filterl [fpoint]. num9 = outnum9; 

filter 1 [fpoint] .tag = filter l[j]. tag; 



beepO; 

clear_window(wnd_filter); 
if(fpoint>fcntl) { 
fpoint--; 

fstart = fpoint- 19; 
if (fstart<0) fstart=0; 

} 

writefilterlO; 

} 

break; 

case 'F: prtstatus=biosprint(2,0,0); 
if (prtstatus=0x90) { 
printclientCN 1 ); 
showline("msg_FilterlSel "); 
sprintf(string 5 msg_line); 
toprinter(string); 
printcrlfO; 

for Q=0;j<fcntl+l;j++) { 
if (filterl[j].tag) { 

sprintf(striag 5 ,,0 /os %s", 

filterl [j].name,filterl [j].potency); 
toprinter(string); 
printcrlfO; 

} 

} 

} 

break; 
default: break; 

} 

} 

delete_window(wnd_filter); 

filteroutflag=0; 

fromkey=T; 

> 

void count£2tags(3 

{ 

int i; 

nf2tags=0; 

for (i=0; i<fcnt2+l; i++) if (filter2[i].tag) n£2tags++; 
} 



void f2untags0 

{ 

int i; 



for (i=0; i<nfilter+l; i++) filter2[i].tag = 0; 
} 



void all£2tags(3 
{ 

int i; 

for (i=0; i<nfilter+l; i++) filter2[i].tag = 1; 
} 

void viewfilter2() 

{ 

int j,temp,key=0; 
int fpoint,fstart,end; 
int prtstatus; 
chax string[50]; 
WINDOW *wnd_filter; 

setmenuhelpC'filter ",0,0); 

wnd_filter = establish_window(39,0,25,41); 

showline("msg_Filter2Sel "); 

set_title(wnd_filter 5 msg_line); 

set_colors(wnd_filter,ALL 5 BROWN 5 BLACK,DIM); 

set_colors(wnd_filter,ACCENT 3 accentcolor,BROWN ; BRIGHT); 

display_window(wnd_filter); 

fpoint=0; 

fstart=0; 

filteroutflag=l; 

fromkey='2 t ; 

while (key != ESC) { 

wcursor(wnd_filter, 0, 0) ; 

if (fstart+20 <= fcnt2) end = fstart+20; 

else end = fcnt2+l; 

for 0=fstart; j<end; j++) { 

if (j = fpoint) reverse_video(wnd_filter); 
if (filter2[j].tag = 1) temp=16; 
else temp = ' 

wputchar(wnd_filter 3 temp); 
wprintf(wnd_filter, "%#2d.%s%s" 3 

j + 1 , filter2 [j ] . name, filter2 [j ] .potency) ; 
if (end != j) wprintf(wnd_filter ? "\n n ); 
normal_video(wnd_filter); 

> 

countf2tags0; 

wcur sor(wnd_filt er, 0,22); 

showline("msg_FiltersTL "); 



wprintf(wnd_filter 3 msg_line,fcnt2-i- 1 3 nf2tags 3 nfilter+ 1); 
key = get_char(); 
key = toupper(key); 
switch(key) 

{ 

case ' ': if (filter2[fpoinf].tag = 1) filter2[fpoint].tag=0; 

else fUter2 [fpoint]. tag = 1; 
case RSWITCH: 
case DN: fpoint++; 

if (fpoint > fcnt2) { 
fpoint=0; 
fstart=0; 
} 

if (fpoint >fstart+ 19) { 
fstart = fpoint; 
clear_window(wnd_filter); 

} 

break; 
case LSWITCH: 
case UP: fpoint—; 

if (fpoint <0) { 

fpoint=fcnt2; 

fstart=fcnt2-19; 

if(fstart<0)fstart=0; 

} 

if (fpoint < fstart) { 

fstart=fpoint-19; 
clear_window(wnd_filter); 
if (fstart <0) { 

fstart=0; 

fpoint=0; 

} 

} 

break; 

case PGUP: fstart=fstart-20; 

if(fstart<0)fstart=0; 
clear_window(wnd_filter) ; 
fpoint=fstart; 
break; 

case PGDN: fstart = fstart+20; 

if (fstart > fcnt2) fstart=0; 
clear_window(wnd_filter) ; 
Q)oint=fstart; 
break; 

case HOME: fstart=0; 



fpoint=0; 
break; 

case END: fstart=fcnt2-19; 

if (fstart < 0) fstart=0; 

fpoint=fcnt2; 

break; 

case W: display_timeO; break; 
case TF: QuntagsO; break; 
case T: allf2tags0; break; 
case '+': downitemO; break; 
case upitemO; break; 
case prevpotO; break; 
case nxtpotO; break; 
case 'Z 1 : fpoint=scan(l); 

fstart=fpoint; 

clear_window(wnd_filter); 

helpfunc=help; 

break; 

case 'R': for (j=0; j<fcnt2+l; j++) { 

if (filter2[j].tag = 1) filter2[j].tag - 0; 

elsefilter2[j].tag= 1; 

} 

break; 

case ALT_M: if (h + n£2tags > nhold) break; 

for Q=0; j<fcnt2+l;j++) { 

if(filter20].tag= 1) { 
++h; 

str cpy(hold [h] . name, filt er2 [j ] . name) ; 
strcpy(hold[h].id 3 filter2[j].id); 
strcpy(hold[h] .potency,filter2[j] .potency); 
hold[h].potnum[0] = filter2[j].potnum[0]; 
hold[h].potnum[l] = filter2[j].potnum[l]; 
hold[h].potnum[2] = filter2[j].potnum[2]; 
hold[h].mim0 = filter2[j].num0; 
hold[h].numl = filter2[j].numl; 
hold[h].num2 = filter2[j].num2; 
hold[h].num3 = filter2[j].num3; 
hold[h].num4 = filter2£j].num4; 
hold[h].num5 = filter2[j].num5; 
hold[h].num6 = filter2[j].num6; 
hold[h].num7 = filter2[j].num7; 
hold[h].num8 = filter2[j].num8; 
hold[h].num9 = filter2[j].num9; 
hold [h]. max = max; 
hold[h].min = min; 



hold[h].rise = rise; 
hold[h].fall = fall; 
hold[h].tag = 1; 
} 

} 

twobellsO; 

writeholdfileO; 

break; 

case DEL: if (fcnt2 < 0) break; 

for G=*point; j<fcnt2+l; j++) { 

str cpy (filt er2 [j ] . name,filter 2 [j + 1 ] . name) ; 
strcpy(filter2[j] .potency,filter2[j+ 1 ] .potency); 
filter2[j].potnum[0] = filter2[j+l].potnum[0]; 
filter2[j].potnum[l] = filter2[j+l].potnum[l]; 
filter2[j].potnum[2] = filter2[j+l].potnum[2]; 
filter2[j].num0 = filter20+l].numO; 
filter2[j].numl = filter2[j+l].numl; 
filter2[j].num2 = filter2[j+l].mim2; 
filter2[j].num3 = filter2[j+l].num3; 
filter2[j].num4 = filter2|j+l].num4; 
filter2[j].num5 = filter2[j+l].num5; 
filter2[j].num6 = filter20+l].num6; 
filter2[j].num7 = filter2fj+l].num7; 
filter20].num8 = filter20+l].num8; 
filter2[j].num9 = filter20+l].num9; 
filter2[j].tag = filter2[j+l].tag; 
} 

fcnt2«; 
beepO; 

clear_window(wnd_filter); 
if(fpoint>fcnt2) { 
fpoint--; 

fstart = fpoint-19; 
if (fstart<0) fstart=0; 

} 

writefilter20; 
break; 

case INS: if (fcnt2 < nfilter) { 
fcnt2++; 

for (j=fcnt2;j>fpoint-l;j--) { 

strcpy(filter2[j+ 1 ] .name,filter2[j] .name); 
strcpy(filter2 [j+ 1 ] .potency,filter2[j] .potency); 
filter2[j+l].potnum[0] = filter20].potnum[0]; 
filter2[j+l].potnum[l] = filter2[j].potnum[l]; 
filter20+l].potnum[2] = filter20].potnum[2]; 



filter2[j+l].num0 = filter2[j].num0; 
filter2[j+l].numl = filter2[j].numl; 
filter2[j+l].num2 = filter 2 [j].num2; 
filter2[j+l].num3 = filter2[j].num3; 
filter2[j+l].num4 = filter2[j].num4; 
filter2[j+l].num5 = filter2[j].num5; 
filter2[j-M].num6 = filter2[j].num6; 
filter2[j+l].num7 = filter2[j].num7; 
filter2[j+l].num8 = filter2[j].num8; 
filter2D+l].num9 = filter2[j].num9; 
filter2[j+l].tag = filter2[j].tag; 
} 

strcpy (filt er2 [fp oint] . name, outname) ; 

strcpy (filt er2 [fp oint] .potency, p ot [dilind ex] . name) ; 

filter2[fpoint].potnum[0] = cPotNum[0]; 

filter2[fpoint].potnum[l] = cPotNum[l]; 

filter2[$oint].potnum[2] = cPotNum[2]; 

filter2 [fpoint]. numO = outnumO; 

fUter2 [fpoint]. numl = outnuml; 

fttter2 [fpoint]. num2 = outnum2; 

filter2 [fpoint]. num3 = outnum3; 

filter2[fpoint].num4 = outnum4; 

filter2[fpoint].num5 = outnum5; 

filter2 [fpoint]. num6 = outnum6; 

filter2 [fpoint] .num7 = outnum7; 

filter2 [fpoint]. num8 = outnum8; 

fdter2 [fpoint]. num9 = outnum9; 

filter2[fyoint].tag = filterl[j].tag; 

beepO; 

clear_window(wnd_filter) ; 
if (fpoint >fcnt2) { 
fpoint— ; 

fstart = fpoint- 19; 
if(fstart<0)fstart=0; 

} 

writefilter20; 
} 

break; 

case TP': prtstatus=biosprint(2,0,0); 
if (prtstatus=0x90) { 
printclient('N'); 
showline("msg_Filter2Sel "); 
sprintf(string,msg_line); 
toprinter(string); 
: printcrlfQ; 



for (j=0; j<fcnt2+l; j++) { 
if (filter2[j].tag) { 

sprintf(string, ,,0 /os %s", 

filter 2 [j ]. name, filter2 [j ]. p otency) ; 
toprinter(string); 
printcrlfO; 
} 

} 

} 

break; 
default: break; 

} 

} 

delete_window(wnd_filter); 

filteroutflag=0; 

fromkey=T; 

} 

/* REFERENCE INFO */ 

void referenceO 
{ 

int key=0; 

setmenuhelp("refer ",0,0); 
while (key !=ESC) { 

key=operatiorunfo( ,, ReferIn ,, 3 20,0 ) yeskey); 

key=toupper(key); 

switch(key) { 

case 'K': picturesO; key=ESC; break; 

case 'C: organclockO; break; 

case 'R': reflexology 0; break; 

case 'D': dental(); break; 

case 'Q': quinaryO; break; 

default: break; 

} 

} 

> 



/* CLIENT Module for LISTEN Program */ 
/* Copyright 1991-8 by James Hoyt Clark */ 



#include <dos.h> 
#include <stdio.h> 
#include <conio.h> 
#include <ctype.h> 
#include <stdlib.h> 
#include <alloc.h> 
#include <mem.h> 
#include <time.h> 
#include <string.h> 
#include <fcntl.h> 
#include <sys\types.h> 
#include <sys\stat.h> 
#include "twindow.h" 
#include "keys.h" 

extern struct arearecord { 
char name[31]; 
char id[8]; 

unsigned char numO; 
unsigned char numl; 
unsigned char num2; 
unsigned char num3; 
unsigned char num4; 
unsigned char num5; 
unsigned char num6; 
unsigned char num7; 
unsigned char num8; 
unsigned char num9; 
char select; 
char biblio; 
int position; 

extern struct arearecord area[areasize]; 

extern struct holdrecord { 
char name[31]; 
char id[8]; 
unsigned char numO; 
unsigned char numl; 
unsigned char num2; 
unsigned char num3; 
unsigned char num4; 



unsigned char num5; 
unsigned char num6; 
unsigned char num7; 
unsigned char num8; 
unsigned char num9; 
unsigned char potency [1 1]; 
unsigned char potnum[3]; 
char max; 
char min; 
char rise; 
char fall; 

unsigned char tag; 

}; 

extern struct holdrecord hold[90]; 

extern struct reportrecord { 
char name[31]; 
char id[8]; 

unsigned char potency[ll]; 
unsigned char max; 
unsigned char min; 
unsigned char rise; 
unsigned char fall; 

}; 

extern struct reportrecord report[170]; 
extern struct pointrecord 

{ 

char ptname[8]; 
unsigned char premax; 
unsigned char premin; 
unsigned char prerise; 
unsigned char prefall; 
unsigned char postmax; 
unsigned char postmin; 
unsigned char postrise; 
unsigned char postfall; 
char ptcode; 
char arrow; 

}; 

extern struct pointrecord point[1200]; 



extern struct pulldown { 
char line[26]; 

}; 



extern struct pulldown pulldn[25]; 
extern struct potrecord 

{ 

char name[8]; 
char num[6]; 
char CR; 
char LF; 

}; 

extern struct potrecord pot[1000]; 

extern int helpkey; 

extern char whichDRIVE; 

extern char h; 

extern int reportpoint; 

extern char clientdrive; 

extern long int npoint; 

extern char pointflag; 

extern char outholdflag; 

extern char pnum; 

extern char name [3 1]; 

extern char id[8]; 

extern unsigned int nitem; 

extern unsigned long int itempoint; 

extern unsigned char diskbuffer[100]; 

extern int npot; 

extern char potname[l 1]; 

extern int defaultvalues[100]; 

extern int letter2color; 

extern int areapoint; 

extern int narea; 

extern char fromkey; 

extern int accentcolor; 

extern int color_ask; 

extern int color_delay; 

extern char govern; 

extern int pageline; 

extern int g_mode; 

extern WINDOW *wnd_pot; 

extern WINDOW *wnd_infokeep; 

extern char msg__line[80]; 

struct { 

char last[20]; 
char first[20]; 



char number[8]; 
char nick[20]; 
char addr[20]; 
char city[20]; 
char state[5]; 
char zip[8]; 
char ctry[20]; 
char ethnic[ll]; 
char dt[7]; 
char birth[7]; 
char doc[9]; 
char type[5]; 
char sex[2]; 
char phone[21]; 
char amt[5]; 
char extra[8]; 
char visits; 
char samples; 
} client; 

struct { 

int systolic; 
int diastolic; 
int htrate; 
int temp; 
int weight; 
int height; 
int extra[25]; 
} clientmeasure; 

struct hrecord { 

char name[31]; 
char id[8]; 

unsigned char numO; 
unsigned char numl ; 
unsigned char num2; 
unsigned char num3; 
unsigned char num4; 
unsigned charnumS; 
unsigned char num6; 
unsigned char num7; 
unsigned charnum8; 
unsigned char num9; 
unsigned char potency [6]; 
unsigned char potnum; 



char max; 
char min; 
char rise; 
char fall; 

unsigned char tag; 

}; 

struct hrecord holdold[90]; 

#define FIELD CHAR '_' 
#define MAXCHR 220 
#define HARD 1 
#define FLOP 0 
#define LWID 60 
#defineWHT 10 
#define PADHT 20 

char bf [PADHT] [LWID]; 
charmskl [] = "_"; 

charmsk4 [] = " "; 

charmsk7 [] = " "; 

charmsk8 [] = " "; 

charmskl9 [] = " "; 

char msk21 [] = " "; 

char mskdate [] = "_/_/_"; 

char clientbuffer[MAX_CHR]; 
char formnumber[40]; 
char filename[90]; 
char wholename[60]; 
char command[90]; 

int insert_mode = FALSE; /* insert mode, TRUE/FALSE */ 
char savefind[31]; 
long int qfindnum; 

void addfield(WINDOW *wnd, FIELD *fld); 

void disp_field(WINDOW *wnd, char *bf, char *msk); 

void data_value(WINDOW *wnd, FIELD *fld); 

void insert_status(void); 

void zeropointO; 

int read_field(WINDOW *wnd, FIELD *fld); 

void right Justify(char *s); 

void right Justify_zero_fill(char *s); 

int endstroke(int c); 

int spaces(char *c); 

int first; 

int nclient; 



int clientpoint=0; 
long int allsize; 
int aUfilecount; 
char visitchar[3]; 

WINDOW *wnd_client, *wnd_print, *wnd_find; 
WINDOW *wndjrod; 
WINDOW *wnd_namelist; 
WINDOW *wnd_who; 

FIELD *fld, *fl; 
char findname[31]; 
char ifclient; 

void docommandO 

{ 

strcat(command, ">nul"); 
//printf^WosW^command); 
sy st em(command) ; 

} 

long get_disk_size(char drive) 

{ 

union REGS ireg, oreg; 
ireg.h.ah=0x36; 
ireg.h.dl = drive - 'A* + 1; 
intdos(&ireg,&oreg); 

return (long) ((long) oreg.x.dx * (long) oreg.x.ax * (long) oreg.x.cx); 

> 

long get_disk_free(char drive) 

{ 

union REGS ireg, oreg; 
ireg.h.ah=0x36; 
ireg.h.dl = drive - 'A' + 1; 
intdos(&ireg,&oreg); 

return (long) ((long) oreg.x.ax * (long) oreg.x.bx * (long) oreg.x.cx); 

} 

void formatnumberO 

{ 

int i; 

for (i=0; i<7; i++) if (client.number[i] = ' ') break; 
strncpy(formnumber, client .number,i) ; 
strcat(formnumber, " .DAT"); 

} 



void formpath(char letter,int visitnumbe^int which) 

{ 

int i; 

strcpy(filename, ,, C:\\WORK\\CLffiNT\\X M ); 
filename[l 5]=letter; 

for (i=0; i<7; i++) if (client.number[i] = 1 ') break; 
strncat(filename 5 client.number 5 i); 
strcat(filename 5 " . "); 
if (which) { 

itoa(visitnumber,visitchar, 10); 

strcat(filename,visitchar); 

} 

else strca^filename,"*"); 

} 

void getbufFerQ 

{ 

int ij; 

strncpy(client.last,clientbuffer,20); 
j=0; 

for (i=20; i<40; i++) { 

client . first [j ]=clientbufTer[i] ; 

} 

j=0; 

for (i=40; i<60; i++) { 

client.nick[j] = clientbuffer[i]; 

} 

j=0; 

for (i=60; i<68; i++) { 

client.number[j]=clientbufFer[i]; 

} 

j=0; 

for (i=68; i<88; i++) { 

client . addrjj ]=clientbuffer[i] ; 

} 

j=0; 

for(i=88;i<108;i++) { 

client, city [j ] =clientbuffer [i] ; 

} 

j=0; 



for(i=108; i<113;i++) { 

c!ient.state[j]=cIientbufiFer[i]; 

} 

j=0; 

for(i=113;i<121;i++) { 

client.zip[j]=clientbufFer[i]; 

} 

j=0; 

for(i=121;i<141;i++) { 

client. ctryO]=clientbuffer [i] ; 

} 

j=0; 

for(i=141;i<152; i++) { 

client.ethnic[j]=clientbuflFer[i]; 

} 

j=0; 

for(i=152; i<159;i++) { 

client.dt[j]=clientbuffer[i]; 

j++; 
} 

j=0; 

for(i=159; i<166; i++) { 

client.birth[j]=clientbuffer[i] ; 

} 

j=0; 

for (i=166; i<175; i++) { 

client.docO]=clientburTer[i]; 

} 

j=0; 

for(i=175;i<180; i++) { 

client.typeO]=clientbuffer[i]; 

j++; 
} 

client.sex[0]=clientbuffer[ 180]; 
j=0; 

for(i=182; i<203; i++) { 

client.phone[i]=clientbuffer[i]; 

j++; 
} 



j=0; 

for (i=203; i<208; i++) { 

client.amt[j] = clientbufrer[i]; 

j-H-; 

} 

client . visits=clientbufFer[2 1 6]; 
client. samples=clientbuffer[2 1 7]; 

} 

drivestatusO 
{ 

#define DISK_READ 2 

unsigned status; 

char buf[512]; 

int retry; 

int Drive; 

int head=0; 

int track=0; 

int sector=8; 

int nsectors^l; 

if (clientdrive = 'A') Drive=0; 
else Drive=l; 

for (retry=0; retry<3; retry-H-) 

status^iosdisk^IS^READ^rive^ead^track^sectorjnsectors^uf); 
return(status); 

} 

void savebufferO 

{ 

int ij; 

strcpy(clientbufFer,client.last); 
j=0; 

for (i=20; i<40; i++) { 

clientbuflfer[i]=client.first[j]; 

} 

j=0; 

for (i=40; i<60; i++) { 

clientbu£fer[i]=client.nick[j]; 

} 

j=0; 

for (i=60; i<68; i++) { 

clientbuffer [i]=client.number[j ] ; 



} 

j=0; 

for (i=68; i<88; i++) { 

clientbuffer[i]=client.addr[j]; 

} 

j=0; 

for(i=88; i<108; i++) { 

clientbufFer[i]=client.city[j]; 

} 

j=0; 

for (i=108;i<113;i++) { 

clientbuff er[i] =client . statejj] ; 

} 

j=0; 

for(i=113;i<121;i++) { 

clientbuff er[i] =client . zip [j ] ; 

} 

1=0; 

for (i=121;i<141;i-H-) { 

clientbuffer [i] =client . ctry fj ] ; 

} 

j=0; 

for (i=141; i<152;i++) { 

clientbuffer [i]=client . ethnic[j ] ; 

} 

j=0; 

for 0=152; i<159;i++) { 

clientbuffer [i]=client . dt[j ] ; 

} 

j=0; 

for (i=159;i<166;i++) { 

clientbuffer[i]=client.birth[j]; 

j++; 
} 

j=0; 

for (i=166; i<175; i++) { 

clientbufferfi] =client . doc[j] ; 



} 

j=0; 

for(i=175; i<180; i++) { 

clientbufiFer[i]=c!ient.type[j] ; 

} 

clientbufferfl 80]=client.sex[0]- 
j=0; 

for(i=182; i<203; i-H-) { 

clientbuffer[i]=client.phone[j]; 

} 

j=0; 

for (i=203; i<208; i++) { 

clientbuffer[i]=chent.amt[j]; 

} 

clientbuffer[2 1 6]=client. visits; 
clientbuffer[2 1 7]=client. samples; 



void readname(long int position) 
{ 

int fhandle; 

if((fhandle=open( ,, C:\\WORK\\CLIENT\\CLIENT.DAT ,, 3 0_RDONLY|0 
operationinfo("errorop", 1 0,5,yeskey); 
return; 

} 

lseek(fhandle,MAX_CHR*position,SEEK_CUR); 
if ((read(fhandle,cUentbuffer,MAX_CHR)) = -1) { 

operationinfo("errorfl", 1 0,5,yeskey); 

exit(l); 

} 

getbufferO; 

close(fhandle); 

} 

long sizeclientfiles(long int clientnumber, char only) 

int fhandle, key=0; 
int i,filecount=0; 
long int size=0; 
struct stat info; 
WINDOW *wnd_size; 
readname(chentnumber); 



formpath( f N , 5 0 5 HARD); 

if (access(filename 5 0) = 0) { 

fhandle=open(filename ? 0_WRONLY|0_BINARY); 

fstat(fhandle,&info); 

size = info.st_size; 

close(fhandle); 

filecount++; 

} 

for (i=0; i<client .visits; i++) { 
formpath(T\i,HARD); 
if (access(filename,0) = 0) { 

£handle=open(filename ) 0_WRONLY|0_BINARY); 

fstat(fhandle,&info); 

size - size + info.st_size; 

close(fhandle); 

filecount-H-; 

} 

} 

for (i=0; Kclient.visits; i++) { 
foimpath(H\i,HARD); 
if (access(filename,0) = 0) { 

fhandle=open(mename 5 0_WRONLY|0_BINARY); 

fstat (fhandle, &info) ; 

size = size + info.st_size; 

close(fhandle); 

filecount-H-; 

} 

} 

for (i=0; i<client.visits; i++) { 
fonnpathCR'^HARD); 
if (access(filename,0) = 0) { 

fhandle-open(filename 3 0_WRONLY|0_BINARY); 

fstat(fhandle, &info) ; 

size = size + info.st_size; 

close(fhandle); 

filecount++; 

} 

} 

size=size+220; 
allsize=allsize+size; 
allfilecount=allfilecount-H51ecount; 
if (only) { 

wnd_size = establish_window(33, 10,3,33); 
showline("msg_ClientDtSize H ); 
set_title(wnd_size,msg_line) ; 



set_colors(wnd_size 3 ALL 5 BLACK,GREEN 5 BRIGHT); 
display_window(wnd_size) ; 
showline( M msg_Filesbytes "); 
wprintf(wnd_size, msg_line 3 filecount+ 1 , size); 
while (key != ESC) key = get_charO; 
delete_window(wnd_size) ; 

} 

return size; 

} 

/* PRINTING */ 

void outprinter(int count, int character) 
{ 

int i; 

for (i=0; i<count; i-H-) biosprint(0 3 character,pnum); 

} 

void printcrlfO 

{ 

biosprint(0,OxOD,pnum); 
biosprint(0,OxOA,pnum); 
outprinter(4,0x20); 

} 

void printcrlf20 

{ 

printcrlfO; 
printcrlfO; 

> 

void toprinter(char str[70]) 

{ 

int i 5 data; 

for (i=0; str[i] !='\0'; i-H-) { 
data = str[i]; 
bio sprint(0 ? data 5 pnum) ; 

} 

void devicemsg(void) 

{ 

char str[80]; 
if (govern = 0) { 
printcrlf(); 



showline( n msg_investl "); 
strcpy(str J msg_line); 
strcat(str,"\r\n "); 
showline("msg_invest2 "); 
strcat(str,msg_line); 
toprinter(str); 

} 

> 

void formfeed(void) 

{ 

devicemsgO; 
biosprint(0,OxOc,pnum); 

> 

void printline(void) 

{ 

int i,data; 

outprinter(64 ? 0x2D); 
printcrlfO; 

} 

void printlinecrO 

{ 

printcrlfO; 
printlineO; 

} 

unspace_name() 
{ 

int ij,k; 

char reducefirst[20]; 
char reducelast[20]; 
char reducenick[20]; 
i=18; 

while (client.firstfi] = ' ') i~; 
j=18; 

while (client.last[j] = ' ') j~; 
k=18; 

while (client.nick[k] = ' ') k— ; 
strcpy(reducefirst, client . first) ; 
strcpy(reducelast,client.last); 
strcpy (reducenick, client . nick) ; 
reducefirst [i+ 1 ]=0 ; 
reducelastjj+l^O; 



reducenick[k-r 1 ]=0; 
strcpy(wholename,reducefirst); 
strcat(wholename," "); 
strcat(wholename,reducelast); 
strcat(wholename," "); 
strcat(wholename 3 reducenick); 
return i+j+k+6; 

} 

void printclient(char namenumber) 
{ 

char str[70]; 
struct tm *tm_now; 
char *str_now; 
long secs_now; 

toprinter(": "); 

if (namenumber = Tsf) { 

unspace_nameO; 

strcpy(str 3 wholename); 

} 

else strcat(str,client.number); 
toprinter(str); 

printcrlfQ; 

time(&secs_now); 

tm_now=localtime(&secs_now); 

str_now=asctime(tm_now); 

str_now[24]=0; 

strcpy(str, str_now); 

toprinter(str); 

outprinter(2,0x20); 

showline("msg_Testedby "); 

strcpy(str,msg_line); 

strcat(str, client, doc); 

toprinter(str); 

printcrlf(); 

printline(); 

printcrlfO; 

} 

void clientlistheadO 

{ 

char str[80]; 
printcrlfO; 

showline("msg_LISTENSysCL "); 



sprintf(str 5 msg_line); 

toprinter(str); 

printcrl£2(); 

showline("msg_LastNameOthr"); 
sprintf(str ? msg_line) ; 
toprinter(str); 
printcrlfQ; 

> 

void printclientinfoO 

{ 

unsigned char prtstatus; 
char str[70]; 

prtstatus = biosprint(2,0,pnum); 
if (prtstatus != 0x90) { 

tellprinterQ; 

return; 

} 

printcrlfO; 

showline("msg_Number "); 
toprint er(msg_line) ; 
sprintf(str ? n %s", client, number); 
toprinter(str); 
printcrlfO; 

showline("msg_Last "); 
toprinter(msg_line); 
sprintf(str," °/os",client.last); 
toprinter(str); 
printcrlf(); 

showline("msg_First "); 
toprinter(msg_line) ; 
sprintf(str," %s",clientfirst); 
toprinter(str); 
printcrlfO; 

showline( n msg_Other "); 
toprinter(msg_line); 
sprintf(str," %s n 5 client.nick); 
toprinter(str); 
printcrlfO; 

showline("msg_Address "); 

toprinter(msg_line); 

sprintf(str," %s",client.addr); 

toprinter(str); 

printcrlfO; 

showline("msg_City "); 



toprinter(msg_line) ; 
sprintf(str," °/os n ,client.city); 
toprinter(str); 
printcrlfO; 

showline("msg_State "); 
toprinter(msg_line) ; 
sprintf(str," %s",clientstate); 
toprinter(str); 
printcrlfO; 

showline("msg_Zip "); 
toprinter(msg_line) ; 
sprintf(str," %s",client.zip); 
toprinter(str); 
printcrlfO; 

showline("msg_Country "); 

toprinter(msg_line); 

sprintf(str," %s n 5 client.ctry); 

toprinter(str); 

formfeedO; 

> 

void printclientsO 

{ 

unsigned char prtstatus; 

char str[70]; 

char shortnick[16]; 

intj; 

struct tm *tm_now; 
long secs_now; 
char *str_now; 
div_t result; 

prtstatus = biosprint(2 5 0,pnum); 
if (prtstatus != 0x90) { 

tellprinterO; 

return; 

} 

clientlistheadO; 
for (j=0; j<nclient-l; j++) { 
readname(j); 

stmcpy(shortnick,chent.nick, 16); 
shortnick[15]=0; 

sprintf(str/ ,0 /o#3d. %s %s %s %#3d °/os"J-M 3 cUentlast 5 client.first 3 

client.number, client .visits, shortnick); 
toprinter(str); 
ifC!=0){ 



result = div(j 3 53); 
if (result.rem = 0) { 

formfeedO; 

clientlistheadO; 

} 

} 

printcrlfO; 

> 

printcrlfO; 

time(&secs_now); 

tm_now = localtime(&secs_now); 

str_now = asctime(tm_now); 

str_now[24] = 0; 

showline( M msg_DateandTime "); 

sprintf(str,msg_line, str_now); 

toprinter(str); 

formfeedO; 

} 

void tellwhoO 

{ 

int xlen; 

xlen=unspace_nameO; 

wndjwho = establish_window(9,3 ? 3,xlen); 

set_colors(wnd_who,ALL 3 BLACK J WHITE ? BRIGHT); 

set_colors(wnd_who 5 ACCENT ? WHITE 3 BLACK 5 DrM); 

display_window(wnd_who); 

wprintf(wnd_who, M %s",wholename); 

> 

void whichnotefileO 

{ 

if (client.lastfO] = 0) strcpy(filename, ,, C:\\WORK\\NOTES.DAT M ); 
else fonnpathCN',0,HARD); 

} 

void printnotesO 

{ 

FILE *fp, *fopenO; 
int i,ctr = 0, data; 
char str[64]; 
setmem(bf, sizeof bf, 0); 
whichnotefileO; 

if ((fp = fopen(filename,"rt H )) !=NULL) { 

showline("msg_LISTENSystemNot"); 



strcpy(str,msg_line); 
toprinter(str); 

printclient(TSf'); 
printcrlf20; 

while (fread(bf[ctr] 3 LWID, 1, fp)) { 
strcpy(str,bf[ctr]); 
toprinter(str); 
ctr++; 
printcrlfO; 

> 

fclose(fp); 
formfeedO; 

} 

void headlineO 
{ 

char str[70]; 
printcrlfQ; 

showline("msg_headline "); 
strcpy(str,msg_line); 
toprinter(str); 
printhnecrQ; 

} 

void printhold() 

{ 

intj; 

char str[80]; 
printcrlf(); 

showline("msg_HoldReport "); 

strcpy(str ? msg_line); 

toprinter(str); 

printclientCN'); 
headlineO; 

forO=0;j<h+l;j++){ 

sprintf(str, ,,0 /o#2d. %s %s %#3d %#3d %#3d %#3d %s" 3 

j+l 5 holdO].name ? hold[j].id 3 

hold[j].max ? hold[j].inin 5 hold[j].rise 5 hold|j].fall, 

hold[j]. potency); 
/* hold[j].potency,holdv[j].ptname);*/ 

toprinter(str); 

printcrlfO; 

> 

defaultvalues[29]++; 



writedefaultsO; 
formfeedO; 

} 

void printtagO 
{ 

intj; 

char str[70]; 
printcrlfO; 

sho wline( n msg_HoldTagReprt " ) ; 

strcpy(str,msg_line); 

toprinter(str); 

printclient( f N'); 

headlineO; 

for(j=0;j<h+l;j++) 

if (holdOJ-tag) { 

sprintf(str/ ,0 /o#2d. %s %s %#3d %#3d %#3d %#3d %s", 

j+1 ? hold[j] .name,hold[j] id, 

hold 0 ] . max,hold [j ] . min, hold [j ] . rise,hold [j ] . fall, 

hold[j]. potency); 

toprinter(str); 

printcrlfO; 

} 

printcrlf20; 
} 

void printlistO 

{ 

long int j jstart Jcount; 

int i, start, count; 

int k=0; 

div_t x; 

int c=0; 

char str[40]; 

char str2[70]; 

if (fromkey = P') return; 

c=operationinfo("PrtList" ? 10 5 4 3 yeskey); 

c : =toupper(c); 

if (c { 

tellcanceledO; 

return; 

} 

operationkeep(" AnyStop", 1 0,4); 

printcrlfO; 

if (fromkey = T) { 



jstart = itempoint; 
count = nitem-j start; 
i=l; 

for (j=itempoint; j<itempoint+count; j++) { 
getproduct(j); 

if (id[0] = 1 ' && j != itempoint) break; 
if (id[0] = ' ') sprint^sti2," %s",name); 
else { 

sprintf(str2," %#3d. %s",i,name); 
} 

toprinter(str2); 

printcrlfO; 

if (k = pageline) { 

biosprint(0,OxOc,pnum); 

printcrlfO; 
k=0; 

} 

else k++; 

if (kbhitO) break; 

} 

} 

if(fromkey=='A') { 
start = areapoint; 
count = narea-start; 
for (i=start; i<start+count; i++) { 

if (areafi] -biblio = ¥) toprinter( M "); 

strcpy(str 5 area[i] .name); 

toprinter(str); 

printcrlfO; 

if (k = pageline) { 

biosprint(0, 0x0c,pnum); 

printcrlfO; 

k=0; 

} 

else k++; 

if (kbhit()) break; 

} 

} 

bio sprint (0 5 0x0 c, pnum) ; 
delete_window(wnd_infokeep); 

> 



void printreportO 

{ 



int k=5; 
intj; 

char str[80]; 
printcrlfO; 

showline^'msg^temReadings"); 

strcpy(str 3 msg_line); 

toprinter(str); 

printclientCN'); 

headlineO; 

for (j=0; j<reportpoint+l; j++) { 

sprintf(str, n %#3d. %s %s %#3d %#3d %#3d %#3d 0 /os''j+l,report|j].name, 

reportO].id,reportO].max 5 reportO].m^ 

report [j]. potency); 

toprinter(str); 

printcrlfO; 

if (k = pageline) { 

biosprint(0,OxOc,pnum); 

printcrlfO; 

k=0; 

} 

else k++; 

if (kbhitO) break; 

} 

formfeedO; 

} 

void printpointsO 

{ 

long intj; 
int k=5; 
char str[60]; 
printcrlfO; 

showline("msg_BasePostRep "); 

strcpy (str, msgjine) ; 

toprinter(str); 

printclientCN'); 

printcrlfO; 

showline( n msg_BasePostHead"); 

strcpy (str, msg_line) ; 

toprinter(str); 

printlinecrO; 

for (j=0; j<npoint; j++) { 

if (point[j].premax != 0) { 

sprintf(str 5 M %s %#3d %#3d %#3d °/o#3d n ,pointG].ptnaine, 
pointQ] .premax,point[j] .premin,point[j] .prerise,point[j] .prefall); 



toprinter(str); 
outprinter(8 3 0x20); 

sprintf(str 5 "%s %#3d %#3d %#3d °/o#3d ,, ,pointD].ptname, 

pointO].postmax,pointO].postmin,point[j].postrise 3 poin^ 

toprinter(str); 

if (k = pageline) { 

biosprint(0 3 0x0c,pnum); 

k=0; 

} 

else k++; 

if (kbhitO) break; 

printcrlfQ; 

} 

} 

formfeedO; 

} 

void researchO 

{ 

long intj; 
intk=5; 
char str[60]; 
printcrlfO; 

showline("msg_ResearchRept"); 
strcpy (str 3 msg_line) ; 
toprinter(str); 
printclient(*R'); 

showline( n msg_BaseMME)RF "); 

strcpy(str 3 msg_line); 

toprinter(str); 

printlinecr(); 

for (j=0; j<npoint; j++) { 

if (point[j].premax != 0) { 

sprintf(str, ,,0 /os %#3d %#3d %#3d %#3d %#3d n ,point[j].ptname 3 

pointfj] . premax,point[j] .premin,point[j] . premax-point[j] .premin, 

point[j].prerise,point[j].prefall); 

toprinter(str); 

if (k = pageline) { 

biosprint(0 5 0x0c ? pnum); 

k=0; 

} 

else k++; 

if (kbhitO) break; 

printcrlfO; 

} 



} 

formfeedO; 

} 

void basebarO 

{ 

longintj; 

int i,k=5; 

char str[60]; 

barheading(O); 

for (j=0; j<npoint; j++) { 

if (point[j].premax != 0) { 

sprintf(str,"%s %#3d %#3d %#3d %#3d ",point[j].ptname 3 

point|j].premax,point|j].preinin,point|j].prerise,point|j].prefall); 

toprinter(str); 

for (i=0; i<(pointjj].premin/2); i++) { 
if (i=24) biosprint(0,'|',pnum); 
else biosprint^O/^pnum); 

} 

for (i=(point[j].premin/2); i<(point[j].premax/2); i++) { 
if (i=24) biosprint(0,'| ! ,pnum); 
else biosprint(0,'*',pnum); 

} 

if (i<23) { 

for (i=i; i<24; i++) biosprint(0,' ',pnum); 
biosprint(0, ' | ',pnum); 

} 

if (k = pageline) { 

biosprint(0,0x0c,pnum); 
k=0; 

} 

else k++; m 

if (kbhitO) break; 

print crlf(); 

> 

} 

formfeedO; 

} 

void postbarO 

{ 

unsigned int j; 
int i 3 k=5; 
char str[60]; 
barheading(l); 



for (j=0; j<npoint; j++) { 

if (point[j].postmax != 0) { 

sprintf(str, ,,0 /os %#3d %#3d %#3d %#3d " 5 point|j].ptname 5 

pointO].postmax,point|j].postmin^^ 

toprinter(str); 

for (i=0; i<(point[j].postmin/2); i++) { 
if (i=24) biosprint(0/|',pnum); 
else biosprint(0/:' 3 pnum); 

} 

for (i=(point0].postmin/2); i<(point[j].postmax/2); i++) { 
if (i=24) biosprint(0 5 7,pnum); 
else biospiint(0,'*',pnum); 

} 

if (i<23) { 

for (i=i; i<24; i++) biosprint(0,' ',pnum); 
biosprint(0, ' | ',pnum) ; 

} 

if (k = pageline) { 

biosprint(0, 0x0c,pnum) ; 
k=0; 

} 

else k++; 

if (kbhitO) break; 

printcrlf(); 

> 

} 

formfeed(); 

} 

char *rselcs[] = { 

pulldn[13].line,/*Hold*/ 
pulldn[14].line,/*Hold Tag*/ 
pulldn[15].Une,/*Points*/ 
pulldn[16].line,/*Base Bar*/ 
" pulldn[17].line,/*PostBar*/ 
pulldn[18].line,/*Items*/ 
pulldn[19].line,/*Research*/ 
pulldn[20].line,/*Notes*/ 
NULL 

>; 

char *lselcs[] = { 

pulldn[21].line,/*List*/ 
NULL 

}; 

static void (*rfuncs[])() = {printholdjprinttag^printpointSjbasebarjpostbar, 



printreport,research,printnotes} ; 
static void (*lfuncs[])0 = {printlist}; 
static MENU prtr [] = { 

{puUdn[22].Iine,rselcs..riuncs},/*REPORTS*/ 

{pulldn[23].line,lselcs,lfiincs} > /*LISTS*/ 

{NULL,NULL,NULL} 

}; 



void printingO 
{ 

unsigned char prtstatus; 

prtstatus=biosprint(2 ? 0 3 pnum); 

if (prtstatus=0x90) menu_print(prtr 5 l); 

else tellprinterO; 

} 



/* NOTEPAD */ 



void notepad() 
{ 

WINDOW *wnd; 
FILE *fp, *fopenO; 
int i, ctr = 0; 
tellwhoO; 

setmenuhelp("notepad",0,0); 

whichnotefileO; 

setmem(bf, sizeof bf, ' '); 

if ((fp = fopen(filename,"rt")) != NULL) { 

while (fread(bf [ctr], LWID, 1, fp)) ctr++; 

fclose(fp); 

} 

wnd = establish_window((80-(LWID+2))/2, (25-(WHT+2))/2, WHT+2, LWID+2V 
set_border(wnd, 3); 

set_colors(wnd,ALL,WmTE,BLACK,DIM); 

set_colors(wnd,ACCENT,WHITE,BLACK,DIM); 
display_window(wnd); 

cursoronO; 

text_editor(wnd, bf[0], (unsigned) LWED * PADHT); 

cursoroffO; 

delete_window(wnd); 

ctr = PADHT; 

while (—ctr) { 

for (i = 0;i< LWID; i++) 

if(bf[ctr] [i] !=") break; 

if(i<LWID) break; 



} 

fp = fopen(filename 3 M w"); 

for (i = 0; i < ctr+1; i++) fwrite(bf[i], LWID, 1, fp); 
fclose(fp); 

delete_window(wnd_who); 

} 

/* CLIENT */ 

/* display a window prompt */ 

void wprompt (WINDOW *wnd, int x, int y, char *s) 

{ 

wcursor(wnd 5 x, y); 
wprintf(wnd, s); 

} 

/* provide today's date */ 

void help_date(bf) 
char *bf; 

{ 

struct date dat; 
getdate(&dat); 

sprintf(bf, "%02d%02d%02d",dat.da_day, dat.da_m.on, dat.da_year % 100); 
} 

void init_template(WINDOW *wnd) 
{ 

fid = FHEAD; 
while (fid) { 

fl = fld->fnxt; 

free(fld); 

fld=fl; 

} 

FHEAD = FTABL = NULL; 
} 

FIELD *establish_field(wnd ? cl 5 rw, msk, bf, ty) 

WINDOW *wnd; 

int rw; 

int cl; 

char *msk; 

char *bf; 

int ty; 

{ 

if ( (fid = malloc(sizeof(FIELD))) = NULL) return NULL; 



fld->fmask = msk; 
fld->frow = rw; 
fld->fcol = cl; 
fld->fbuff=bf; 
fld->ftype = ty; 
fld->fprot = 0; 

fld->fhxt = fld->fprv = NULL; 
fld->fvalid = NULL; 
fld->fhelp = NULL; 
fld->fhwin = NULL; 
fld->flx = fld->fly = 0; 
addfield(wnd, fld); 
return fid; 

} 

static void addfield(WINDOW *wnd, FIELD *fld) 

{ 

if (FTAIL) { 

fld->fprv = FTAIL; 
FTAIL->fhxt = fld; 

} 

FTAIL = fld; 

if (IFHEAD) FHEAD = fld; 
} 

static void disp_field(WINDOW *wnd, char *bf, char *msk) 

{ 

while (*msk) { 

wputchar(wnd, *msk !=FEELDCHAR? *msk : *bf++); 
msk-H-; 

} 

} 

static void data_value(WINDOW *wnd, FIELD *fld) 
{ 

wcursor(wnd, fld->fcol, fld->frow); 
disp_field(wnd, fld->fbuff, fld->fmask); 
} 

void field_taUy(WINDOW *wnd) 

{ 

fld = FHEAD; 

while (fld != NULL) { 

data_value(wnd, fld); 

fld = fld->fnxt; 



} 

} 



void field_window(FIELD *fld, char *hwin, int x, int y) 

{ 

fld->fhwin=hwin; 
fld->flx = x; 
fld->fly = y; 
} 

void clear_template(WINDOW *wnd) 
{ 

char *bf, *msk; 
fld = FHEAD; 
while (fid != NULL) { 
bf=fld->fbuff; 
msk = fld->fmask; 
while (*msk) { 

if (*msk = FIELDCHAR) *bf++ = ' '; 

msk++; 

} 

fid = fld->fext; 
} 

field_tally(wnd_client); 
void clientcountO 

{ 

long int j; 

forG=0;j<5000;j-H-){ 
readname(j); 

if (client.zipfO] = 'z') break; 
} 

nclient=j; 

} 

void writename(long int position,int deLflg) 

{ 

int fhandle; 
struct stat info; 
savebuffer0; 

if((fhandle=open( ,, C:\\WOm\CLffiNT\\CLIENT.DAT^O_WRONL 
operationinfo("errorfl M ? 1 0 5 1 0,nokey); 
exit(l); 
} 



lseek(fhandle,MAX_CHR*position,SEEK_CUR); 
if ((writeCfliandle^UentbufiFe^MAX^HR)) = -1) { 

operationinfo("erTorwt",10,10,nokey); 

exit(l); 

} 

if (delflg) { 

fstat(fhandle,&info); 

info.st_size = info . st_size-MAX_CHR; 

chsize(fhandle,info. stsize); 

} 

close(fhandle); 

} 

insertnameO 

{ 

long int i; 
intj; 

char savenumber[9]; 

char insbuflEer[MAX_CHR]; 

if (client.last[0] = * '|| clientnumber[0] = * *) { 

operationinfo( M noempty M , 1 0, 1 0,nokey); 

return 1; 

} 

savebuflferO; 

strcpy (savenumber, client . number) ; 
for (j=0; j<MAX_CHR; j++) insbufferQ] = clientbuffer[j]; 
for (i=0; i<nclient; i++) { 
readname(i); 

if (strcmp(savenumber 5 client. number) = 0 ) { 

for 0=0; j<MAX_CHR; j++) clientbuflfer[j] = insbuflFer[j]; 

operationinfoC'numexis'^O^jnokey); 

return 1; 

} 

} 

readname(nclient) ; 
writename(nclient+ 1 ,0); 
for (i=nclient-l; i>-l; i— ) { 

readname(i); 

writename(i+l ? 0); 

for 0=0; j<67; j++) if (insbuffer[j] != clientbuffer[j]) break; 
if (insbuflferQ] > clientbuffer[j]) break; 

} 

i++; 

if (i=0 &&j<40)i=0; 

for (j=0; j<MAX_CHR; j++) clientbufTer[j] = insbuffer[j]; 



getbufferO; 
writename(i,0); 
nclient-H-; 
clientpoint=i; 
return 0; 

} 

void shiftnames(void) 

{ 

long int i; 

for(i=clientpoint; i<nclient; i++) { 
readname(i+l); 
writename^O); 

} 

writename(i,l); 
nclient— ; 

} 

void deletenameO 

{ 

int key; 

if (nclient = clientpoint) return; 

cursoroffO; 

twobellsO; 

key=operationinfo( M DELETE ",2, 10 5 yeskey); 
if(key = *Y') { 

if (client, visits != 0) { 

strcpy(command,"DEL M ); 

formpath('7 ? 0,FLOP); 

strcat (command, filename) ; 

docommandO; 

} 

shiftnamesO; 

} 

/*if (clientpoint = nclient) clientpoint--;*/ 

} 

void show_visitnumberO 

{ 

wcursor(wnd_client ? 8 5 1 9); 
wprintf(wnd_client, "%#3 d", client, visits); 

} 



void opmenu() 

{ 



setmenuhelp("client ",0,0); 
operationkeep("ClieOps",0, 1)- 
} 

void showinfoO 

{ 

readname(clientpoint); 

wnd_client = establish_window(32 3 2 3 22 3 35); 

showlineC'msg^ClientPage "); 

set_title(wnd_client 5 msg_line); 

set_colors(wnd_client 3 ALL 5 6 ; BLACK,DlM); 

set_colors(wnd_client ; ACCENT 5 WffiTE3LACK,DIM); 
display_window(wnd_client); 
showline("msg_Number "); 
wprompt(wnd_client 3 1, l,msgjine); 
showline("msg_Last "); 
wprompt(wnd_client 3 l 3 3,msg_line); 
showline("msg_First "); 
wprompt(wnd_client, 1 ,4,msgjine); 
showline("msg_Other "); 
wprompt(wnd_client, l 3 5,msg_line); 
showline("msg_Address "); 
wprompt(wnd_client, 1 3 6 3 msg_line); 
showline("msg_City "); 
wprompt(wnd_client, 1 , 7 3 msg Jine); 
showline("msg_State "); 

wprompt(wnd_client 3 l 5 8 3 msg_line); 
showline( M msg_Zip "); 

wprompt(wnd_client 5 15 3 8 3 msgjine); 
showline("msg_Country "); 
wprompt(wnd_client, l 3 9 3 msgjine); 
showline( M msg_Phone "); 
wprompt(wnd_client 3 1 3 1 0 3 msg_line); 
showline( M msg_StartDate "); 
wprompt(wnd_client, 1 , 1 2,msg_line); 
showline("msg_BirthDate "); 
wprompt(wnd_client, 1 , 1 3 ,msg_line); 
showline("msg_Sex "); 
wprompt(wnd_client, 1 , 1 4,msg_line); 
showline("msg_Ethnic "); 
wprompt(wnd_client, 1, 1 5 3 msg_line); 
showline("msg_User "); 
wprompt(wnd_client 3 1, 17,msgjine); 
showline("msg_Type "); 
wprompt(wnd_client 3 1 9, 1 7,msg_line); 



showline( M msg_Visits "); 
wprompt(wnd_client, 1, 1 9,msg_line); 
init_template(wnd_client); 

fid = establish_field(wnd_client 5 9 3 l ? msk7 3 client.number 3 'A'); 
field jwindow(fld 3 "number " 5 40 3 0); 

fid = establish_field(\vnd_client ) 7 ^ 3 ^ mskl9 ^ client.last;A , ); 

field_window(fld 3 "name ",40,1); 

fid = establish_field(wnd_client 3 8 3 4 5 mskl9 3 client.first ; , A*); 

field_window(fld, "name ",40 3 2); 

fid = establish_field(wnd_cUent 5 8 3 5 3 mskl9 3 client.nick 3 , A'); 

field jwindow(fld, "name ",40,2); 

fid = establish_field(wnd_client 3 10 J 6 3 mskl9 3 client.addr, l A'); 

fidd_window(fld, "address ",40,5); 

fid = establish_field(wnd_client 3 7 J 7 3 mskl9 3 client.city ^ , A , ); 

field_window(fld, "address ",40,6); 

fid = establish_field(wnd_client 5 8 3 8,msk4 3 client. state, 'A'); 

fieldjwindow(fld, "state ",40,7); 

fid = establish_field(wnd_client 5 20 ? 8 3 msk7 5 client.zip 3 , A'); 

field_window(fld, "address ",40,7); 

fid = establish_field(wnd_client 3 10 ? 9 5 mskl9 3 client.ctry ? A'); 

field_window(fld 3 "address ",40,8); 

fid = establish_field(wnd_cUent 3 8 3 10 J msk21 3 client.phone ? , A'); 
field jwindow(fld, "phone ",40,9); 

fid = establish_field(wnd_client,13,12,mskdate,client.dt, , A'); 
field_window(fld, "date ",40, 1 0); 

fid = establish_field(wnd_client, 13,13 ,mskdate, client . birth 3 A'); 
field_window(fld, "birth ",40,1 1); 
fid = establish_field(wnd_client 3 6,14,mskl,client.sex,'A); 
field_window(fld, " sex '* ,40, 1 4); 

fid = establish_fleld(wnd_client,9 3 15,msk7,client.ethnic, , A , ); 
field_window(fld 3 "ethnic M ,40,14); 
fid = establish_field(wnd_client,7,17 3 msk8,client.doc 3 A , ); 
field jwindow(fld, "user ",40, 1 6); 

fid = estabhsh_field(wnd_client,25 3 17,msk4,client.type 3 , A , ); 
field_window(fld, "type ",40, 1 6); 
show_visitnumberO; 

} 

/*void showmeasureO 

{ 

readmeasure(client.visits); 

wnd_measure = establish_window(3 2,2,22,3 5); 

showline("msg_ClinicData "); 

set_title(wnd_client,msg_line) ; 

set_colors(wnd_client,ALL,6,BLACK,DlM); 



set_colors(wnd_cUent^CCENT 5 WHITE 5 BLACK 5 DIM); 

display_window(wnd_client); 

showline("msg_BP "); 

wprompt(wnd_client, 1 , 1 ,msg_line); 

showline("msg_Height "); 

wprompt(wnd_chent, l,2,msg_line); 

showline("msg_Weight n ); 

wprompt(wnd_client, l,3,msg_line); 

showline("msg_Temp "); 

wprompt(wnd_client, 1 ,4,msg_line); 

init_template(wnd_client); 

fid = establish^fieldCwnd^client^^^mskV^ystolic/A'); 
field_window(fld, "number ",40,0); 

fid = establish_field(wnd_client J 7 ^ 3 J mskl9 5 diastolic/A , ); 
field_window(fld 3 n name ",40,1); 

fid = establish_fleld(wnd_client,8 5 4 ? mskl9,Height;A , ); 
field_window(fld, "name ",40,2); 

fid = establish_field(wnd_client 5 8,5,mskl9 5 Weight;A , ); 

field_window(fld, "name M ,40,2); 

fid = establish_field(wnd_client,10,6,mskl9,Temp;A'); 

field_window(fld, "address ",40,5); 

fid = establish_field(wnd_client,7 5 7 5 mskl9 3 client.city, , A'); 

field_window(fld, "address ",40,6); 

fid = estabiish_field(wnd_client,8,8,msk4,client.state, , A , ); 
field_window(fld, "state ",40,7); 
fid = establish_field(wnd_client,20,8,msk7,client.zip,'A'); 
field_window(fld, "address ",40,7); 

fid = establish_field(wnd_client,10,9,mskl9,client.ctry,'A'); 
fieId_window(fld, M address ",40,8); 

fid = establish_field(wnd_cIient,8,10,msk21,client.phone/A'); 
field_window(fld, "phone ",40,9); 

fid = establish_field(wnd_client,13,12,mskdate,client.dt,A'); 
field_window(fld,"date ",40, 10); 

fid = estabUsh_fleld(wnd_client,13,13,mskdate 3 client.birth,A , ); 
field_window(fld,"birth ",40,11); 
fid = establish_fleld(wnd_client,6,14,mskl,client.sex/A , ); 
field_window(fld,"sex ",40,14); 

fid = establish_field(wnd_client,9,15,msk7,client.ethnic, f A'); 
field_window(fld," ethnic ",40,14); 
fid = establish_fleld(wnd_client,7,17,msk8,client.doc, , A , ); 
field jwindow(fld, "user n ,40,16); 

fid = establish_fleld(wnd_client,25,17 J msk4 ^ client.type, , A , ); 
field_window(fld,"type ",40, 16); 
show_visitnumber(); 
} */ 



void zeroclientO 

{ 

int i; 

for (i=0; i<MAX_CHR-10; i++) clientbufferfi] = ' '; 

clientbuffer[19]=0; 

clientbuffer[39]=0; 

clientbuffer[59]=0; 

clientbufferf67]=0; 

clientbuffer[87]=0; 

clientbufferfi 07]=0; 

clientbufferfi 12]=0; 

clientbufferfi 20]=0; 

clientbufferfi 40]=0; 

clientbufferfi 5 1]=0; 

clientbufferfi 58]=0; 

clientbufferfi 65]=0; 

clientbufferfi 74]=0; 

clientbufferfi 79]=0; 

clientbufferfi 8 1]=0; 

clientbuffer[201]=0; 

clientbuffer[207]=0; 

clientbuffer[216]=0; 

clientbuffer[217]=0; 

clientbuffer[2 1 8]=0x0d; 

clientbuffer[2 1 9]=0x0a; 

getbufferO; 

} 

void setfloppyO 
{ 

strcpy(filename, n A:\\"); 

if (clientdrive^B 1 ) fUenametOJ^B*; 

formatnumber(); 

strcat(filename ? formnumber); 

} 

void clearfindnameQ 

{ 

int i; 

for (i=0; i<3 1 ; i++) findnamefi] = 0; 
} 

void restorefromflopO 

{ 

WINDOW *wnd_restore; 



struct ffblk ffblk; 

int spaceplace ? key; 

int fhandle; 

char store [7]; 

if (drivestatusO - ,= 0) { 

notreadyO; 

return; 

} 

strcpy(fiJename } " A:\\* .DAT"); 

if (clientdrive='B') filename[0]='B'; 

findfirst(filename,&ffblk,0); 

strcpy(filename, M A:\\"); 

if (clientdrive= , B') filename[0]='B'; 

strcat(filename,ffblk. ffname); 

if ((fhandle=open(filename,0_RDONLY)) = -1) { 
nodientinfoO; 
return; 

} 

lseek(fhandle 5 0,SEEK_CUR); 

if ((read(fhandle,clientbuffer,MAX_CHR)) == -1) { 
readerrorO; 
return; 

} 

getbufferO; 
close(fhandle); 

wnd_restore = establish_window(22, 10,9,39); 

set_colors(wnd_restore,ALL,BLACK,AQUADIM)- 

set_colora(vwidj-estore,ACCENT,WmTE3IACK,blM3- 
display_window(wnd_restore); 

wprintf(wnd_restore, " %s",client.number); 

wprintf(wnd_restore,"\n %s",cUent.last); 

wprintf(wnd_restore, "\n %s",client.first); 

wprintf(wnd_restore,"\n%s\n",client.nick); 
showline("msg_ENTERcUent "); 
wprintf(wnd_restore,msg_Iine); 
wprintf(wnd_restore, "\n"); 
showline("msg_Anyotherkey "); 
wprintf(wnd_restore,msg_line); 
key = get_char(); 
delete_window(wnd_restore); 
if (key = ENTER) { 

if (HnsertnameO) { 

if (client.visits != 0) { 

wcursor(wnd_restore,7,3); 
operationinfo("Restorg",2,5,nokey); 



strcpy(command, n COPY A:\\? n ); 
if (clientdrive= , B') command[5]= t B l ; 
spaceplace=strcspn(client.number 3 " "); 
strncat(command, client .number, spaceplace); 
strcat(command, " . * "); 

strcat(command, " C:\\WORK\\CLffiNT\\* . * "); 

docommandO; 

twobellsO; 

} 

} 

} 

} 

void readpoint(int number) 

{ 

FILE *fptr; 
npoint=0; 

formpath('P',number 3 HARD); 

if( (^ptr=fopen(filename 3 "rb"))=NULL ) { 

operationinfo("errorfl", 1 0,5,nokey); 

return; 

} 

else { 

while(fread(&point[npoint],size6f(point[0]) 3 1 ,fptr)=l) npoint-H-; 
fclose(fptr); 

} 

} 

void readvisit(int number) 
{ 

FILE *fptr; 
int key; 
int nhold; 

key=op er ationinfo ( " readvis " , 5 , 1 , y eskey) ; 
if (key = 'Y') { 

operationinfo( M Retriev M ,5, l ? nokey); 

formpath( , N , 5 0 3 HARD); 

if (access(filename,0) = 0) { 

strcpy(command/'COPY "); 

strcat(command,filename) ; 

strcat(command, ,, CA\WORKWNOTES.DAT /y"); 

docommandO; 

} 

h=0; 
nhold=0; 



formpath(H" 3 number 3 HARD); 
if (access(filename 3 0) != 0) { 

operationinfo("absentH" 3 10 3 5,nokey)' 
} 

else { 

^)tr=fopen(filename 5 "rb"); 
whUe(fread(&hold[h] 3 sizeof(hold[0]) 3 l 3 fptr)=l ) 
{ 

if (hold[0].potency[5] = 0) 
{ 

fclose(fptr); 

fptr=fopen(filename 3 "rb"); 

while(fread(&holdold[nhold] 3 sizeof(holdold[0]) ) l 3 ^)tr) = 1) 

strcpy(hold[nhold].name 3 holdold[nhold].name); 
strcpy(hold[nhold] .id 3 holdold[nhold] .id); 
hold[nhold].numO = holdold[nhold].numO; 
hold[nhold].numl = holdold[nhold].numl; 
hold[nhold].num2 = holdold[nhold].num2; 
hold[nhold].num3 = holdold[nhold].num3; 
hold[nhold].num4 = holdold[nhold].num4; 
hold[nhold].num5 = holdold[nhold].num5; 
hold[nhold].num6 = holdold [nhold]. num6; 
hold[nhold].num7 = holdold [nhold]. num7; 
hold[nhold].num8 = holdold[nhold].num8; 
hold[nhold].num9 = holdold [nhold]. num9; 
strcpy(hold[nhold].potency 3 holdold[nhold].potency); 
hold[nhold].potnum[2] = holdold[nhold].potnum; 
hold[nhold].potnum[0] = 0; 
hold[nhold].potnum[l] = 0; 
hold[nhold].max = holdold[nhold].max; 
hold[nhold].min = holdold[nhold].min; 
hold[nhold].rise = holdold[nhold].rise; 
hold[nhold].fall = holdold[nhold].fall; 
hold[nhold].tag = holdold [nhold]. tag; 
■nho!d++; 
} 

beepO; 
h = nhold; 
break; 

} 

else 

{ 

if (nhold) break; 
h++; 



} 

} 

fclose(fptr); 

} 

h~; 

reportpoint=0; 

fompath(T^number,HARD); 
if (access(filename,0) != 0) { 

operationinfo("absentR", 1 0,5,nokey); 

else { 

fptr=fopen(filename, "rb"); 

while(freadC&report[reportpoint],si2eof(report[0]), l,fptr)=l ) 

reportpoint++; 
fclose(fptr); 

} 

reportpoint--; 

readpoint(number); 

} 

else tellcanceledQ; 



void backuptoflopO 
{ 

FILE *infile; 

WINDOW *wnd_message; 

long int totalFDspace,freeFDspace, size; 

char name[10]; 

int i,key = 'Y'; 

if (client, visits = 0) return; 

if (drivestatusO != 0) { 

notreadyO; 

return; 

} 

wnd_message = establish_window(14, 1,19,49); 
showline( ,, msg_BackupCheck "); 
setjitle(wnd_message, msg_line); 

set_colors(wnd_message,ALL 3 RED 5 WHITE 5 DIM); 
display_window(wnd_message); 

totalFDspace=get_disk_size(cUentdrive); 
freeFDspace=get_disk_free(cUentdrive); ' 
size=sizeclientfiles(clientpoint,0); 
if (size > freeFDspace) { 

twobellsO; 

showline("msg_Toomuclidata "); 



wprompt(wnd_message, l,2,msg_Iine); 
showline("msg_Pressanykey "); 
wprompt(wnd_message, 1 3 2 3 msg_line); 
showline( n msg_TotalSizeFD "); 
wprompt(wnd_message 3 l 3 2 3 msg_line); 
wprintf(wnd_message 3 n %#71d M 3 totalFDspace); 
showline("msg_FreeSpaceFD "); 
wprompt(wnd_message 3 l 3 2 3 msg_line); 
wprintf(wnd_message 3 n %#71d" 3 freeFDspace); 
showline( ,1 msg_SizeVisitDat n ); 
wprompt(wnd_message 3 1 3 2 3 msg_line); 
wprintf(wnd_message 3 " %#71d" 3 size); 
get_charO; 

delete_window(wnd_message); 
return; 

} 

delete_window(wnd_message); 
key=operationinfo("B ACKUPF", 1 0, 1 0,yeskey); 
if(key = 'Y') { 

setfloppyO; 

if (access(filename,0) = 0) { 
twobellsO; 

key=operationinfo("BACKUPE", 10, 10,yeskey> 
} 

if (key = 'Y 1 ) { 

operationinfo("BackupC", 10, 10,nokey); 
// printf("\nfil:%s", filename); 

// twobellsO; 
// getch(); 

infile=fopen(filename, " wb "); 

fwrite(cUentbuffer,sizeof(char),MAX_CHR,infile); 
fflush(infile); 

// twobellsO; 

// printf("\ninfile"); 

// getchO; 

fclose(infile); 
// printf("\nfil=%s", filename); 

// twobellsO; 
// getchO; 

strcpy(command,"COPY "); 

formpath('?',0,FLOP); 

strcat(command,filename); 
// printf("\nFLP=%s",command); 
// twobellsO; 
// getchO; 



strcpy(filename," A:\\*.*"); 

if (clientdrive= , B') filenamefl]^'; 

strcat(cornmand,filename); 

printf("\ncom=%s:", command); 

twobellsO; 

getchO; 

docommandO; 

twobellsO; 

} 

} 

else tellcanceledO; 



void visitdatesO 
{ 

struct stat info; 

int i,row,col,start,adjust; 
int sel; 
int cl=0; 

WINDOW *wnd_vst; 
setmenuhelp("visitda",20,20); 
col=l +client. visits/2 1 ; 

wnd_vst = establish_window(5,0,25,31*(col)); 
showline("msg_VisitDates "); 
set_title(wnd_vst,msg_line); 

set_colors(wnd_vst,ALL,BLUE,WHITE,DIM)- 

set_colors(wnd_vst,ACCENT ; WHITE 5 BLACK 3 DIM) ; 
display_window(wnd_vst); 

unspace_nameO; 

wprompt(wnd_vst, l,0,wholename); 
row=0; 

if (client, visits > 40) start = client, visits-40; 

else start=0; 

sel=start; 

while(cl !=ESC) { 

for (i=start; i<client. visits; i++) { 
formpath('P',i,HARD); 
if (sel == i) reverse_video(wnd_vst); 
if(stat(filename,&info) != 0) { 

printf("Error: %s",filename); 
return; 

} 

adjust=i-start; 

col = adjust/20; 

row = adjust - (20*col) + 2; 



// 
// 
// 



wcursor(wnd_vst,col*30+l 5 row); 
wprintf(wnd_vst 3 "%#2d. n 3 i+l); ' 
wprintf(wnd_vst, l, %s^ctiIie(&info.st_atime)); 
nonnal_video(wnd_vst); 

cursoroffQ; 

cl=get_charO; 
cl=toupper(cl); 
switch(cl) { 

case UP: sel~; 

if (sel < start) sel=client.visits-l; 
break; 
case DN: seH-f ; 

if (sel > client. visits- 1) sel=start; 
break; 

caseBS: 

case FWD: sel=sel+20; 

if (sel > client.visits-1) sel=sel-40; 
break; 
case INS: readvisit(sel); 

cl=ESC; 
break; 

default.beepO; break; 
} 

} 

delete_window(wnd__vst); 



void lastvisitO 
{ 

if (client.visits = 0) return; 
readvisit(client. visits- 1 ); 
viewholdO; 
} 

void firstvisitO 
{ 

if (client.visits = 0) return; 

readvisit(O); 

viewholdO; 

} 

void archivevisit() 

{ 

int key; 



key=operationinfo(" Archive", 10 5 yeskevY 
if (key != Y 1 ) { 

tellcanceledO; 
return; 

} 

operationinfo("ArchivY", 1 0, 5,nokey); 
strcpy(command,"COPY C:\\WORK\\PTREAD.DAT "V 
formpathCP', client. visits,HARD); 
strcat(command,filename); 
docommandO; 

operationinfo("PointsA",10,5,nokey)' 
if(h>-l){ 

strcpy(command,"COPY C:\\WORK\\HOLD.DAT ")■ 

formpathCHUlient.visit^HARD); 

strcat(command,filename); 

docommandO; 

operationinfo("HoldArc", 1 0,5,nokey); 

if (reportpoint > -1) { 

strcpy(command,"COPY C:\\WORK\\RECORD.DAT " 

formpath^ctient.visit^HARD); 

strcat(command,filename); 

docommandO; 

operationinfo("RecordA", 1 0,5,nokey); 

client.visits++; 
writename(clientpoint, 0); 

show_visitnumberO; 

delay(lOOO); 

putchar(BELL); 

} 

void readirecfileO 

{ 

FILE *fptr; 
reportpoint=0; 

if( (fptr=fopen( ,, RECORD.DAT","rb"))=NULL) { 
operationinfo("absentR",10,5,nokey)- 

} 

else { 

while(fread(&report[reportpoint] ? sizeof(report[0]) ? 1 ,fptr) 

reportpoint-H-; 
fclose(fptr); 

} 

reportpoint--; 



} 

void writeirecfileO 

{ 

FILE *fptr; 

int rcount=reportpoint+l; 

if( (fptr=fopen("RECORD.DAT , V'wb"))=NULL) { 
operationinfo("absentR", 1 0,5,nokey)- 
} 

else { 

while(fwrite(report 5 sizeof(report[0]) 5 rcount,fptr)=l ) rcount++; 
fclose(fptr); 

} 

void readpotfileO 
{ 

FILE *fptr; 
npot=0; 

if( (^tr=fopen("POT.DAT" 5 "rb"))=NULL ) { 
operationinfo("errorfl",10,5,yeskey); 
exit(O); 

} 

else { 

whUe(fread(&pot[npot] 5 sizeof(pot[0]),l 3 fptr)=l)npot44-; 
fclose(fptr); 

} 

} 

void restorevisitO 

{ 

int key; 
twobells(); 

key=operationinfo( M Restore^lO,5,yeskey); 
switch (key) { 

case 'Y': twobellsO; 

operationinfo( M RestorV n , 1 0,5,nokey); 

readholdfileO; 

readirecfileO; 

break; 

case 'd': 

case 'D':restoredefaultsO; 

operationinfo( n DefRest" 5 10 3 5,nokey); 
break; 

case ESC: tellcanceleidO; 



break; 

} 

} 

void checkroomO 

{ 

int key; 
long size; 

WINDOW *wnd_message; 
size=get_disk_free('C'); 
if(size< 1000000) { 

wnd_message = establish_window(14,l, 10,40); 

set_colors(wnd_message,ALL ) RED,WmTE,DIM); 
display_window(wnd_message); 
showline("msg_HardDriveFre"); 
wprompt(wnd_message, 1 , 1 ,msg_line); 
wprintflwndmessage," %ld",size); 
showline("msg_YoulesslMB "); 
wprompt(wnd_message, l,3,msg_line); 
showline("msg_ofspaceleft "); 
wprompt(wnd_message, 1 ,4,msg_line); 
showline("msg_CLEARDATAHD ");' 
wprompt(wnd_message, 1 , 6,msg_line); 
showline("msg_PressESCkey "); 
wprompt(wnd_message, 1 , 8,msg_line); 
while (key != ESC) key=get_charO; 
delete_window(wnd_message); 

} 

static void insert_status() 

set_cursor_type(insert_mode ? 0x0106 : 0x0607); 

/* CLIENT PAGE */ 

void display20client() 
{ 

long int first,rowj; 
first=clientpoint- 1 0; 
row=0; 

if(clientpoint< 11 ) { 

row = 10-clientpoint; 
first = 0; 



} 

wcursor(wnd_nameJist, 0,0); 
for(j=0;j<row;j-H-) { 

if 0 != 0 ) wprintfCwnd^amelist,"^")- 
printspace(wnd_namelist, 78); 

for (j=first; j<cIientpoint+13; { 

if (row I- 0) if ((cIientpoi», +1 3) != j> wpri-tfCwodjamefa 'V'); 

readname(j); 

if(cJientpoinp)reverse_video(wnd_nameUsO 

if 0 <ncbent) wprintf(wnd_namelist,"o/os %s % s °/ 0 #3d %,« 

clle °t.last J client.first ) client.number,client visits client nicVv 
elsepnntspace(wnd_namelist,78); c ™visits,ciient.nick), 

normaI_video(wnd_namelist); 

} 

void upclientO 

{ . 

if (clientpoint = 0) clientpoint = nclienf 

-chentpoint; 

} 

void downcJientO 

{ 

if (clientpoint > nclient-2) clientpoint = -1 

++clientpoinf 

} 

void clientlistO 
int i,c=0; 

setmenuhelp("cllist ",2,8); 

wnd_namelist = establiW window(0 0 25 80V 

showline("msg_PrtLastFirst") ; ' ' ' 

set_title(wnd_namelist,msg_line); 

set_colors(wnd_namelist,ALL,WfflTE,RED DIM)- 

j et - C s ^^^- nameus t ; ACCENT,BLACK YELLOW RRTrwn 
display_window(wnd_nameUst)- Y11 LLOW,BRIGHT); 

while (c != ESC) { 
cursoroffO; 

display20client0; 
c = get_char(); 
c = toupper(c); 



if(c>'@' &&c <•['){ 

for (i=0; i<nclient; i++) { 
readname(i); 
if (c = client.last[0]) { 
clientpoint=i; 
break; 

} 

} 

} 

switch(c) { 

case UP: upclientO; break; 
case DN: downcIientO; break; 
case HOME: clientpoint=0; 
break; 

case END: clientpoint = nclient-1; 
break; 

case F4: clear_window(wnd_namelist); 

wcursor(wnd_namelist,5, 10); 
wprintf(wnd_namelist, "Printing. . "); 
printclientsO; 
break; 

default: break; 

} 

} 

delete_window(wnd_namelist); 



static int read_field(WINDOW *wnd, FIELD *fld) 

char *mask = fld->finask, *buflF= fld->fbufF; 

int done = FALSE, c, column; 

column = fld->fcol; 

while (*mask != FIELDCHAR) { 

column-H-; 

mask++; 

} 

while (TRUE) { 

wcursor(wnd, column, fld->frow); 
c = get_char(); 

if (fld->ftype = 'A') c = toupper(c); 

clear_message(); 

switch (c) { 

case '\b': 
caseBS: 

if(bufF=fld->fbuff) { 



done = c = BS; 
break; 

} 

-buff; 
do { 

—mask; 

—column; 

} while (*mask != FIELDCHARY 
if(c==BS) 
break; 

case DEL: 

movmem(buff+l, buff, strien(buff)); 
*(buff+strlen(buff)) = 0; 
wcursor(wnd, column, fld->frow); 
disp_field(wnd, buff, mask); 
break; 
case FWD: 

do { 

column++; 
mask++; 

} while (*mask && *mask != FIELDCHARY 
buff++; 
break; 
case INS: 

insert_mode A = TRUE; 

insert_statusO; 
break; 

case ALT_P: printclient('N'); break; 
case '.': 

if (£ld->ftype = 'C') { 

if (*mask++ && *buff= ' ') { 
*buflf++ = '0'; 

if (*mask++ && *buff = ' ') *buff++ = '0'; 

right Justify(fld->fbuff); 
wcursor(wnd 3 fld->fcol, fld->frow); 
disp_field(wnd, fld->fbuff, fld->miask); 
column = fld->fcol+strlen(fld->finask)-2; 
mask = fld->finask+strlen(fld->finask)-2; 
bufF= fld->fbuflf+strlen(fld->fbuff)-2; 
break; 

} 

default: 

if (endstroke(c)) { 
done = TRUE; 



} 



break; 

} 

if(toupper(fld->ftype)!= , A , &&!isdigit(c)) { 
operationinfo("numonly", 1 0,5,nokey); 
break; 

} 

if (insert_mode) { 

movmem(buff, buff+1, strlen(buff)-l); 
disp_field(wnd, buff, mask); 
wcursor(wnd, column, fld->frow); 

*buff++ = c; 

wputchar(wnd, c); 
do { 

column-H-; 
mask++; 

} while (*mask && *mask != FIELDCHAR) 

if (!*mask)c = FWD; 

break; 

} 

if (!*mask) done = TRUE; 

if (done) break; 

} 

if (c != ESC && toupper(fld->ftype) != 'A') { 
if(fld->ftype = 'C) { 

if (*mask++ && *buff== ' ') { 
*buff++ = '0'; 

if (*mask++ && *buff = ' ') 
*buff-H- = '0'- 

} 

} 

if (fld->ftype = 'Z' || fld->ftype = 'D') 
right Justify_zero_fill(fld->fbuff); 

else 

rightJustify(fld->fbufF); 
wcursor(wnd, fld->fcol, fld->fr'ow); 
disp_field(wnd, fld->fbufT, fld->finask); 

return c; 



static int endstroke(int c) 

switch (c) { 
case V: 



case V: 

case \t': 

case ESC: 

caseFl: 

case F2: 

case F3 : 
case F4: 
case F5: 
case F6: 
case F7; 
case F8: 
case F9: 
caseFlO: 
case PGDN: 
case PGUP: 
case HOME: 
case END: 
case UP: 

case DN: return TRUE; 
default: return FALSE 

} 

} 

static void right Justify (char *s) 
int Jen; 

len = strlen(s); 

while (*s = " 1| *s = '0' && len) { 
len-; 
*s++ = * '• 

} 

if (len) 

while (*( s +(len-l)) = ") { 
movmem(s ? s+1, len-1); 
*s = ' *; 

}• 

} 

static void right Justify_zero_fill(char *s) 
int len; 

if (spaces(s)) return; 

len = strlen(s); 

while (*(s + len- l) = ") { 

movmem(s 5 s+ 1, len-1); 



} 

} 



void newdientO 
{ 

readname(clientpoint); 
if (nclient != clientpoint) { 

field_tally(wnd_client); 

wcursor(wnd_client,20, 1 9); 

wprintf(wnd_client 5 ,,0 /od of %u ^clientpomt+l,ncUentV 
sho\v_visitnumber(); 

} 

} 

void allfilesQ 

{ 

WINDOW *wnd size: 

long int i,totalHDspace,freeHDspace; 

allsize=0; 

allfilecount=0; 

for (i=0; i<nclient; i++) sizeclientfiles(i,0); 
allsize=nclient *220+aIlsize; 
allfilecount-H-; 

wnd_size = establish_window(33, 10,9,43); 

showline("msg_ClientDirSiz"); 

set_title(wnd_size,msg_line); 

set_colors(wnd_size,ALL,BLACK,YELLOW,BRIGHT); 
display_window(wnd_size); 

totalHDspace=get_disk_size('C'); 

freeHDspace=get_disk_free('C'); ' 

showline("msg_TotalSizes "); 

wprompt(wnd_size,4, l,msg_line); 

wprintf(wnd_size," %#91d ",allsize); 

showline("msg_TotalFiles "); 

wprompt(wnd_size, 1 2,2,msg_line); 

wprintf(wnd_size, " %#9d",allfUecount); 

showline("msg_TotalHD Space"); 

wprompt(wnd_size, 1 ,4,msg_line); 

wprintf(wnd_size, " %#91d",totaJHDspace); 

showline("msg_FreeHDSpace "); 

wprompt(wnd_size,2, 5,msg_line); 

wprintf(wnd_size,"%#91d",freeHDspace); 
get_charO; 

delete_window(wnd_size); 



newclientO; 

} 



int spaces(char *c) 

{ 

while (*c == ' ') c++; 

return !*c; 

} 

int data_entry(WINDOW *wnd) 
{ 

int exitcode, isvalid, done=FALSE 5 oldhelpkey=helpkey; 

cursoronO; 

field_tally(wnd); 

fid = FHEAD; 

/* — collect data from keyboard into screen — */ 
while (fid ! = NULL && done = FALSE) { 

setmenuhelp(fld->fhwin, fld->fk, fld->fly); 
helpkey - (fld->fhelp) ? 0 : oldhelpkey; 
wcursor(wnd, fld->fcol, fld->frow); 
if (fld->fprot = FALSE) { 
reverse_video(wnd); 
data_value(wnd, fid); 
wcursor(wnd,fld->fcol,fld->frow); 
exitcode = read_field(wnd, fid); 
isvalid = (exitcode != ESC && fld->fvalid) ? 

(*(fld->fvalid))(fld->fbuff) : OK; 

} 

else { 

exitcode = FWD; 
isvalid = OK; 

} 

if(isvalid = OK) { 

normal_video(wnd); 
data_value(wnd, fid); 

switch (exitcode) { /* passed edit */ 

caseFl: if (fld->fhelp) { 

(*(fld->fhelp))(fld->fbuff); 
data_value(wnd, fid); 
} 

break; 

case DN: 
case V: 
case Y: 

case FWD: fid = fld->&xt; 



if (fid = NULL) fid = FHEAD; 
break; 

case UP: 

caseBS: fid = fld->fprv; 

if (fid = NULL) fid = FTAIL; 
break; 

default: done = endstroke(exitcode); 
break; 

} 

} 

} 

helpkey = oldhelpkey; 
return(exitcode); 

} 

void selectclientO 

{ 

int key; 

newclientO; 
opmenuO; 

while (key != ESC) { 
cursoroflfO; 
key = get_charO; 
key = toupper(key); 
switch (key) { 

case PGDN: clientpoint++; 

if (clientpoint > nclient-1) clientpoint=0; 

newchentO; 

break; 

case PGUP; clientpoint-; 

if (clientpoint < 0) 

if (nclient > 0) clientpoint=nclient-l; 

else clientpoint=0; 
newclientO; 
break; 

caseF2: clientlistO; 

newclientO; 

setmenuhelp("client \0,0); 
break; 

case F3 : archivevisitO; break; 
case F4 : lastvisit(); break; 
case F5 : firstvisitO; break; 
caseF6: visitdates(); 

setmenuhelp(" client \0,0); 
break; 



case 'E': if (nclient = clientpoint) break; 

delete_window(wnd_infokeep); 

data_entry(wnd_client); 

writename(clientpoint 5 0); 

opmenuO; 
break; 

case INS: delete_window(wnd_infokeep); 

zeroclientO; 
client.visits = 0; 
show_visitnumberO; 
data_entry(wnd_client); 
insertnameO; 

setmenuhelp( M client ",0,0); 

newcIientO; 

opmenuO; 

break; 

case DEL: if (nclient < 0) break; 

deletenameO; 

newclient(); 

break; 

case W: notepadO; 

setmenuhelp("client ",0,0); 
break; 

case 'F: printclientinfoO; 

break; 

case F9: backuptoflopO; break; 
case F10: restorefromflopO; 

newclientQ; 

break; 

case F7: sizeclientfiles(clientpoint,l); break; 
case F8: allfilesO; break; 
/* case '4': 

case '$': bilUnfoO; break;*/ 
default: break; 

} 

} 

} 

void showclient() 

{ 

clientcountO; 

showinfoO; 

ifclient^'C; 

selectclientO; 

cursorofFQ; 



init_template(wnd_client); 
/*xxxdelete_window(wnd_client); 
delete_window(wnd_infokeep); */ 
close_allO; 

} 

/* FIND OPS */ 

void getsort(long int position) 
{ 

int fhandle; 

if ((fhandle=open("MASTER. SRT" , 0_RDONLY|0_BINARY)) 
op erationinf o( M errorop " , 1 0 5 5 ,yeskey) ; 
return; 

} 

lseek(fhandle,33*position,SEEK_CUR); 
if ((read(fhandle,diskbuffer,33)) = -1) { 

operationinfo("errorfl", 1 0,5,yeskey); 

exit(l); 

} 

close(fhandle); 
stmcpy(name,diskbuffer,3 1); 

} 

void finditemO 

{ 

char sameletter; 
char notfound = 1 ; 
int length,i,factor; 
unsigned long int j; 
unsigned long int limit; 

char msk30[] = " "; 

clearfindnameO; 

wnd_find = establish_window(3 5 12,3,32); 
showline("msg_FindName "); 
set_title(wnd_find 3 msg_line); 

set_colors(wnd_find 3 ALL 3 GREEN 3 AQUA,BRIGHT); 

set - colors(wnd_find 5 ACCENT ? WHITE ? BLACK 5 DIM); 

display_window(wnd_find); 

fid = establish_fleld(wnd_find 5 0 ? 0 3 msk30 5 flndname J , a , ); 

cursoronO; 
ifclient='F; 

data_entry (wnd_find) ; 

cursoroffO; 

j==nitem/2; 



limit=j/2; 

length=strlen(findname); 

for (i=0; i<length; i++) findname[i] = toupper(findname[i]); 

strcpy(savefind 3 findname); 

if(length = 0){ 

twobellsO; 
free(fld); 

delete_window(wnd_find); 
return; 

} 

factor=l; 

while (notfound==l) { 
factor++; 

i=0; 

getsort(j); 
qfindnum=j; 
sameletter=l; 
while (sameletter) { 

while (findnamefi] = name[i]) i++; 
if (i >= length) { 

sameletter=0; 

notfound=0; 

break; 

} 

sameletter=0; 

if (findname[i] < name[i]) j=j-limit; 

if (findname[i] > name[i]) j=j+limit; 

limit=limit/2; 

if (limit=0) limit=l; 

if (j > nitem) j=nitem-l; 

if(factor>50) { 

sameletter=0; 

notfound=9; 

break; 

} 

} 

} 

if(notfound = 0) { 

itempoint=diskbuffer[31] + diskbuffer[32]*256; 
if (qfindnum > 0 ) { 
j=qfindnum-l; 
getsortO); 

while (strncmp(name.findname,length) = 0) { 
if (j = 0) break; 

itempoint=diskbuffer[31] + diskbuffer[32]*256; 



j-s 

getsortO); 
} 

if (j != qfindnum-1) qfindnum=j+l; 
} 

} 

else operationinfoC'Ntfound", 1 0, 1 0 5 nokey); 
free(fld); 

delete_window(wnd_find); 

display20item0; 

outitemO; 

} 

void findqO 

{ 

int length; 

length=strlen(savefind); 
if(length = 0) { 

twobellsO; 

return; 

qfindnum++; 
getsort(qfindnum); 

if (stmcmp(name,savefind,length) = 0) { 

itempoint=diskbuffer[31] + diskbuflfer[32]*256; 

} 

else { 

qfmdnum--; 

beepO; 

} 

display 20item0; 
outitemO; 

> 

void findnumO 

{ 

int length 3 i; 
unsigned long int j; 
unsigned long int limit; 

char msk7[] = " 

char findnum[8]; 

for (i=0; i<8; i++) findnum[i] = 0; 
wnd_find = establish_window(3,12 3 3 ? 13); 
showline("msg_FindNumber "); 
set_title(wnd_find,msg_line); 



set_colors(wnd_find 3 ALL 3 GREEN 5 AQUA,BRIGHT); 

set_colors(wnd_^d 5 ACCENT,WfflTE3LACK 5 DIM); 

display__window(wnd_find); 

fid = establish^eldCwnd^d^^O^kV^dnun^'a 1 ); 

cursoronO; 

ifcUent= r F'; 

data_entry(wnd_find); 
cursoroffQ; 

length=strlen(findnum); 
if(length = 0) { 

beepO; 
free(fld); 

delete_window(wnd_find); 

return; 

} 

operationinfo( n Searchg M 3 10, 10,nokey); 
for (j=itempoint; j<nitem; j++) { 
getproduct(j); 
if(kbhitO!=0) break; 
if (strncmp(id,findnum,length) = 0) { 
itempoint=j; 
break; 

} 

} 

if (j>=nitem) { 

operationinfoCNtfound", 1 0, 1 0,nokey); 

beepO; 

} 

beepO; 
free(fld); 

delete_window(wnd_find) ; 

display20item(); 
outitem(); 

} 

void jumpnameO 

{ 

char msk8[] = " "; 

WINDOW *wndjump; 

wndjump = establish_window(2,22,3,9); 

showline("msg_Jump "); 

set_title(wndjump,msg_line); 

set_colors(wndJump 5 ALL,BLACK,AQUA,DIM); 

set_colors(wndJump,ACCENT,WHITE,BLACK,DIM); 

display_window(wndJump); 



clearfindnameO; 

fid = establish_field(wndJump 3 0 ^ 0 5 msk8 5 findname 3 , a , ); 

cursoronO; 
ifclient=T; 

data_entry(wndjump); 

cursoroflFO; 

free(fld); 

delete_window(wndjump); 

> 

void enterpotO 
{ 

charmsk5[] = M "; 

int i; 

WINDOW *wnd_entrpot; 

wnd_entrpot = establish_window(3 0,0,3 ,10); 

showline( ,, msg_Enter "); 

set_title(wnd_entrpot, msg_line) ; 

set_colors(wnd_entrpot,ALL,WHITE,BLACK,DIM); 

display_window(wnd_entrpot); 

for (i=0; i<12; i++) potname[i] = 0; 

fid = establish_field(wnd_entrpot,0,0,msk5 ? potname 3 , A'); 

cursoronO; 

ifcIient=T; 

data_entry(wnd_entrpot); 

cursoroffO; 
free(fld); 

delete_window(wnd_entrpot); 

} 

/* AREA A-Z */ 

selectAZarea(void) 

{ 

char save_screen[25*80*2]; 
int point; 
int i,j,key; 
int buffer[26]; 
char string[36]; 

gettext( 1 , 1 , 80,25, save_screen); 
for (i=0; i<26; i++) buffer[i]=0; 
setgraphmode(g_mode); 
setbkcolor(LIGHTBLUE); 
setviewport(40, 1 0,400,470, 1); 
DrawBorderQ; 



setcolor(BROWN); 
point=areapoint; 

for G= , A , ;j<T;j++){ 

for (i=0; i<narea-l; i++) { 

if (j = areafi]. select) { 

sprintf(string, "%c. %s" j,area[i] name); 
outtextxy( 1 0, 1 0+(j-65)* 1 4,string); 
buffer0-65]=i; 
} 

} 

} 

Bibox(2, 130,4 12); 
key = get_char(); 
key=toupp er(key) ; 
if(key>'@'&& key<'[') { 

key = key-65; 

point = buffer[key]; 

} 

backtextO; 

puttext( 1 5 1 , 80,25 3 save_screen); 
return point; 

} 

void showareas(char select,int aposition) 

{ 

char entrychar; 

int ij,tempx,tempy,add; 

entrychar='A'; 

i=first; 

for 0=O;j<46;j++){ 

if (i > narea-1) break; 
tempx=0; 
tempy=j; 
if G>22) { 

tempx=40; 

tempy=j-23; 

} 

/* gotoxy(U); 

printfC'POSITION= %#3d i= %#3d first= %#3d",aposition,i,first);*/ 

wcursor(wnd_pro d,tempx,tempy); 

if (area[i].biblio == 'x') wprintf(wnd_prod," "); 

add = 0; 

if (select) 

if (aposition=i) reverse_video(wnd_prod); 
if (entrychar > 'Z') add = 6; 



wput char(wnd_pro d 3 entry char+add) ; 
wprintf(wnd_prod 5 n %s",area[i].name); 
if (area[i] .biblio = 'X') wprintf(wnd_prod, " "); 
if(area[i].select !='/') 

wprintf(wnd_prod, " %c" 5 area[i]. select); 
entrychar-r-f; 

nonnal_video(wnd_prod); 

} 

cursoroflFO; 

} 

selectareaO 

{ 

int i,key=0; 
int point; 

int areaposition=0; 
char select=0; 

setmenuhelpC'AZaxea ",12,5); 

wnd_prod = establish_window(0 ? 0,25,80); 

set_colors(wnd_prod,ALL,6 3 BROWN 5 BRIGHT); 

set_colors(wnd_prod 7 ACCENT,WHITE ? BLACK 5 DIM); 

display_window(wnd_pro d) ; 

first=0; 

point=areapoint; 
showareas(0 ? 0); 
while (key != ESC) { 

key = get_char(); 
if(key>'@' && key<'{') { 
if (select) { 

key=toupper(key); 

if(key<T){ 

area[areaposition]. select = key; 

showareas(s elect, areap o sition) ; 

writeareafileO; 

beepO; 

} 

} 

else { 

if (key>'Z*) key = key-6; 
if (key < narea+65) { 

point=first+key-65 ; 

break; 

} 

else twobellsQ; 



} 

} 

switch(key) { 

case PGUP: if (first-46 < 0) break; 
first=first-46; 
areaposition=first; 
clear_window(wnd_prod); 
showareas(select, areaposition); 
break; 

case PGDN: if (first + 46 > narea) break; 
first=first+46; 
areaposition=first; 
clear_window(wnd_prod); 
showareas(select,areaposition); 
break; 

case HOME: areaposition=first; 

showareas(select ? areaposition); 
break; 

case END: areaposition=first+45; 

if (areaposition > narea- 1) areaposition^narea-l; 

showareas(select 5 areaposition); 

break; 

case CTRL HOME: first=0; 

clear_window(wnd_prod); 
areaposition=first; 
showareas(select 5 areaposition); 
break; 

case CTRL END: first=narea-46; 

if(first<0) first=0; 

areaposition=first; 

clear_window(wnd_prod); 

showareas(select 5 areaposition); 

break; 

case INS: if(select) select=0; 

else select-H-; 

showareas(select 5 areaposition); 
break; 

case DEL: area[areaposition], select = 7'; 

clear_window(wnd_pro d) ; 

showareas(select,areaposition); 

writeareafile(); 

beep(); 

break; 

case UP: if (areaposition != first) areaposition-; 

showareas(select, areaposition); 



break; 

case DN: if (areaposition != first+45) areaposition-H-; 

if (areaposition > narea-1) areaposition--; 
showareas(select 3 areaposition); 
break; 

caseBS: 

case FWD: areaposition = areaposition + 23; 

if (areaposition > first+45) areaposition = areaposition-46; 
if (areaposition > narea-1) areaposition=areaposition-23; 
showareas(select, areaposition); 
break; 

default: break; 

} 

delete_window(wnd_prod); 
return (point); 

} 



/* INPUT and SOUND */ 

/* Copyright 1992-8 James Hoyt Clark */ 

#include <time.h> 
#include <stdio.h> 
#include <dos.h> 
#include <stdlib.h> 
#include <math.h> 
#include <conio.h> 
#include <ctype.h> 
#include <io.h> 
#include <fcntl.h> 
#include <graphics.h> 
include "keys.h" 
#include "twindow.h" 
include n pcl4c.h" 

#define INDEX 100 

int nSerFlag=l; 

int nCount4 = 0; 

int nCountS = 0; 

int nCountff= 0; 

int nCountl = 0; 

int nTimes=0; 

int nBuffer[INDEX]; 

unsigned char waveamplitude[256]; 

unsigned char plotamp[256]; 

unsigned char voltage; 

unsigned char gain; 

int wavepoint; 

int timerO; 

int timer 1; 

int timer2; 

char freqname[7]; 

float freqvalue; 

int freqpoint; 

int freqcount; 

int freqsave; 

unsigned char portcstat; 

WINDOW *wnd_panel; 

int TICS = 1; 

const DELAY = 10; 

int CARD; 

int PORTABLE; 



int nBaud = Baud9600; 

int nDTime = 8; 

int nPortDelay; 

int nGetBuffer = 4; 

extern char far TxBuffer[16384]; 

extern char far RxBuffer[128]; 

extern int defaultvalues[100]; 

/* DCM Sound */ 

char multi_am; 
char multi_vib; 
char multi_egtyp; 
char multi_ksr; 
char multi; 

char tone_ksl; 
char tone_level; * 
char tone_dc; 
char tone_dm; 
char tone_fb; 

char attack; 
char decay; 

char suslevel; 
char relrate; 

char rhy_mel; 
char drum_BD; 
char drum_SD; 
char drumJTOM; 
char drum_TCY; 
char drum_HH; 

unsigned char pitch; 

char susON_OFF; 
char keyON_OFF; 
char octave; 
char f_num8; 



char instrument; 
char volume; 



char percussion; 

char bd_vol; 
char hh_vol; 
char sd_vol; 
char tom_vol; 
char tcy_vol; 

extern unsigned char input; 
extern int reading; 
extern char pointfindflg; 
extern int bkcolor; 
extern float graphscale; 
extern char ifgraphic; 
extern int SerPort; 
extern int nCounter; 

void reset 193 (void) 

{ 

outportb(PPIPORTC,portcstat | 0x04); /* Assert 193 RESET */ 
delay(400); 

outportb(PPIPORTC,portcstat & OxFB); /* No interrupt */ 

} 

void memDCMCard(void) 

{ 

int i; 

int board; 

for(i=0;i<100;i++) 
{ 

board - inportb(ADPORTE); 
printf("\nCHAR: %d\n", board); 
if (board = 0) break; 

} 

if (board != 0) exit(0); 
} 

void setPCB(void) 

{ 

portcstat=0x08; /* Sound off*/ 
disable(); 

outportb(PPICTLREG,0x92); /* A=IN, B=OUT, C=OUT */ 
outportb(PPIPORTC,portcstat); /* No sound */ 
outportb(PPIPORTB,0); 

outportb(ADPORTF,0x44); /* Prog ChanO 8 bits + sign*/ 



outportb(CTRLWRD,0x36); /* Prog counters to Mode 3 */ 

outportb(CTRLWRD,0x76); 

outportb(CTRLWRD,0xB6); 

outportb(SETGMN,gain); /* Set gain */ 

outportb(SETVOLT,voltage); /* Set voltage */ 

reset 1930; 

memDCMCardO; 

} 

/* Audio */ 

char amp; 
char savamp; 

char chan=0; /* Audio Channel */ 
/* SOUND */ 

void outsound(char address, char data) 

{ 

outportb(SOUNDADDR, address); 
delay (2); 

outportb(SOUNDDATA,data); 

delay (2); 

} 

void onvolumeO 

{ 

unsigned char value; 

amp=savamp; 

if (CARD = KEYCARD) 

{ 

outsound(INST_VOL, (instrument « 4) | 15-(amp/2)); 
portcstat = portcstat | 0x08; 
outportb(PPlPORTC,portcstat); 

} 

} 

void ofivolume() 

{ 

unsigned char value; 

if (CARD == KEYCARD) 

{ 

outsound(V_BLOCK, 0x05); 
portcstat = portcstat & 0xF3; 
outportb(PPIPORTC,portcstat); 



} 

if (PORTABLE = KEYPORT) 
nosoundO; 

} 

void setpitch(char pitch, char octv 3 char inst) 

{ 

outsound(V_FNUM, pitch); 
outsoundJlNSTJVOL, (inst « 4) | 15-(amp/2)); 

outsound(V_BLOCK, susON_OFF | keyON_OFF | (octv « 1) | f_num8); 
} 

void xsetpitch(char pitch) 

{ 

setpitch(pitch,4 ? instrument) ; 

> 

/* DCM INPUT */ 

void GetCard(void) // DCM Card 
{ 

char status; 
int ij; 

char string[60]; 
unsigned char valuF=0; 
unsigned char valuE=0; 
unsigned char zeroscale; 
unsigned char oldinput; 
unsigned long total=0; 
int count=10; 
int counter=0; 
unsigned char time=0; 
unsigned char buffer [10]; 
unsigned char inputO; 
unsigned char input 1; 
unsigned char input2; 
unsigned char input3; 
unsigned char input4; 

nSerFlag= 1; 

zeroscale=255-voltage; 

for (i=0; Kcount; i++) { 

outportb(SETGAIN,gain); /* Set gain */ 
outportb(ADPORTF,0x44); /* Prog ChanO 8 bits + sign*/ 
while (time< 10) { 



if (!(status = inportb(ADSTAT) & 0x01)) break; /* finished */ 

delay(4); 

time-H-; 

} 

if(status = 0) { 

valuE = inportb(ADPORTE); 
valuF = inportb(ADPORTF); 
if(valuE = 255) 

if (wavepoint) valuF = 255-valuF; 

else break; 
input = valuF; 
total=total+input; 
buffer[counter] = valuF; 
counter-H-; 

} 

} 

if ((voltage) && (counter > 1)) { 

i=(total-bufifer[0])/(counter-l); 

if(i<3)input=255; 

else input = 258 - i; /* reverse order */ 

inputO=input; 

if (input < zeroscale) input = 0; 

else input = input-zeroscale; /* shift 0 */ 

input l=input; 

input = input*(255.0/voltage); /* scale 0-255 */ 

input2=input; 

input3=input; 

reading=input/2.55; /* scale 0-100 */ 

input4=reading; 

oldinput=input; 

} 

else { 

input = oldinput; 
reading = input/2.55; 

} 

if (oldinput != input) { 
if (ifgraphic) { 

setcolor(BLUE); 
setviewport(0,0,63 9,479, 1); 
rectangle(4,39,481,101); 
setviewport(5,40,480, 1 00, 1); 
clearviewportO; 

settextstyle(SMALL_FONT,HORIZ_DIR,4); 
setcolor(WHITE); 

sprintf(string,"Z=%#4d R=%#4d Total= %#3d<", 



zeroscale, reading, total) ; 
outtextxy( 10,0, string); 

sprintf(string,"I=%#4d V=%#4d E=%#4d F=%#4d C=%#2d<", 

input, voltage, valuE, valuF, counter); 
outtextxy( 10,15, string) ; 
for (j=0; j<counter; j++) { 

sprintf(string, ,, %#2d%#4d , 'j,buffer[j]); 

outtextxy(40 *j+ 1 0, 3 0, string); 

} 

sprintf(string,"0= o /o#4d l=%#4d 2= %#4d 3= %#4d 4= %#4d <", 

input0,input 1 ,input2,input3 ,input4); 
outtextxy(10,45,string); 
setviewport(0,0, 639,479, 1); 

} 

else { 

gotoxy(10,10); 

printf("\nIN= %#4d V= %#4d Z=%#4d E= %#4d F= %#4d C=%#2d Total=%#6d 

<" 

input,voltage,zeroscale,valuE,valuF,counter,total); 
gotoxy(l,l); 

for (j=0; j<counter; j++) { 

printf("\n%#2d %#3d"J, buffer[j]); 

} 

gotoxy(l,15); 

printfC'0=%#4d l=%#4d 2= %#4d 3= %#4d 4= %#4d <", 
input0,input 1 ,input2,input3 ,input4); 

} 

} 

if (reading > 3) setpitch(input 5 4 5 instrument); 
if (reading > 35) onvolumeO; 
else if (pointfindflg = 0) { 

savamp=amp; 

ofivolumeO; 

} 

} 

/* DCM SHIFT */ 

void shiftcode(char number) 
{ 

int i; 

outportb(SFflFT,number); 

for (i=0; i<8; i++) inportb(CLKSFTl); 

} 



void shiftpot(char number) 

{ 

int i; 

outportb(SHIFT,number); 

for (i=0; i<8; i++) inportb(CLKSFT2); 

} 

/* DCM SET TIMER MODES */ 

void getfrequency(int position) 
{ 

char diskbuffer[23]; 
char string[7]; 
int fhandle,ij; 

if((fhandle-open("FREQLIST.DAT" 3 0_RDONLY|0_BINARY)) 
printf("open failed"); 
exit(l); 
} 

lseek(fhandle,23 *position, SEEK_CUR); 
if ((read(fhandle,diskbuffer,23)) = -1) { 

perror("read error"); 

exit(l); 

} 

j=0; 

for (i=0; i<4; i++) { 

string[j]=diskbufFer[i] ; 

} 

string [4]=0; 

timerO=atoi(string); 

j=0; 

for (i=5; i<9; i++) { 

string[j]=diskbuffer[i]; 

j++; 
} 

string[4]=0; 

timer 1 =atoi(string) ; 

j=0; 

for(i=10;i<14;i++) { 

stringO]=diskbuffer[i]; 

} 

string[4]=0; 
timer2=atoi(string); 



fbr(i=15;i<21;i++) { 

stringQ]=diskbuffer[i] ; 

} 

string[6]=0; 
freqvalue=atof(string); 
strcpy (freqname, string); 
close(fhandle); 

} 

void changetimer(unsigned PLACE, int timer) 

{ 

unsigned char numhigh; 
unsigned char numlow; 
numlow=timer; 
numhigh=timer/Oxl 00; 
outp ortb (PLACE, numlow) ; 
outportb(PLACE,numhigh); 

} 

void tellfrequency(void) 

{ 

char string [10]; 
int i,j,xbar; 
float range; 

getfrequency(freqpoint); 
changetimer(TIMER0,timer0); 
changetimer(TIMERl , timer 1 ); 
chaagetimer(TIMER2,timer2); 
setcolor(WHITE); 
rectangle(483 ,3 5 1 ,562,3 80); 
setviewport(484,3 52,561 ,379, 1); 
clearviewportO; 

settextstyle(TRIPLEX_FONT,HORIZ_DIR,2); 
outtextxy (4, 0, freqname) ; 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR_SIZE); 

/*setviewport(0, 0,639,479, 1); 
rectangle(0,0,40,32); 
setviewportQ, 1,39,31,1); 

clearviewportO; 
sprintf(string,"%#4d",timer0); 
outtextxy( 1,0, string); 
sprintf(string,"%#4d",timerl); 
outtextxy( 1 , 1 0, string) ; 



sprintf(string, "%#4d",timer2); 
outtextxy( 1 ,20, string); */ 

if(freqvalue< 10000) 

if (freqvalue < 1000) 

if(freqvalue< 100) 

if (freqvalue < 10) 

if (freqvalue < 1) range = 0.1; 
else range = 1; 
else range =10; 
else range = 100; 
else range = 1000; 
else range = 10000; 
j=range; 

setviewport(0, 0,639,479, 1); 
setfillstyle(SOLID_FILL,BLUE); 
bar(2,3 53,480,363); 
for(i=0; i<ll;i++) { 

if (range < 1) sprintf^tring/Totfl.lf^^range); 

else sprintf(string, n %d",i*j); 

outtextxy(45*i+2,353, string); 

line(45*i+4,369,45*i+4,365); 

} 

xbar = freqvalue * 45.0/range; 
setfillstyle(SOLID_FILL,RED); 
bar(5,370,xbar+5,378); 
setfillstyle( S OLID_FILL, WHITE) ; 
bar(xbar+5,370,454,378); 

} 

void topfrequency(void) 

{ 

freqpoint=freqcount- 1 ; 
tellfrequencyO; 

} 

void lowfrequency(void) 

{ 

freqpoint=l; 
tellfrequencyO; 

} 



void zerofrequency(void) 

{ 

freqpoint=0; 



tellfrequencyO; 

} 

void afrequency(void) 

{ 

freqpoint=25; 
tellfrequencyO; 

} 

void increasefreqO 

{ 

if (Iwavepoint) return; 

if (freqpoint = freqcount-1) return; 

freqpoint++; 

tellfrequencyO; 

} 

void decreasefreqO 

{ 

if (Iwavepoint) return; 
if (freqpoint = 0) return; 
freqpoint--; 
tellfrequencyO; 

} 

/* DCM WAVE SHAPES */ 

void transmitwave(void) 
{ 

outportb(SETVOLT, voltage); 
portcstat = portcstat & OxFE; 
outportb(PPIPORTC,portcstat); 

} 

void stopwave(void) 

{ 

outportb(SETVOLT,0); 
portcstat = portcstat | 0x01; 
outportb(PPIPORTC,portcstat); 
} 

void writewavetoram(void) 

{ 

int i; 

unsigned int DATA; 



stopwaveO; 

for (i=0; i<256; i++) { 

DATA = i*0xl00; 

DATA = DATA + waveamplitudefi]; 
outport(RAMPORT,DATA); 

} 

transmitwaveO; 

} 

void dcline(void) 

{ 

int i; 

wavepoint=0; 

for (i=0; i<256; i++) { 

waveamplitude[i] = 255; 

plotamp[i] = voltage; 

} 

writewavetoramO; 

} 

void sinewave(void) 

{ 

int i; 

double angle; 

wavepoint=l; 

for (i=0; i<256; i++) { 

angle=i/2.40/RADJDEG; 

waveamplitudefi] = sin(angle) * i; 
plotamp[i] = waveamplitudefi] *voltage/25 5; 

} 

writewavetoramO; 
void squarewave(void) 

{ 

int i; 

wavepoint=2; 

for (i=0; i<128; i++) { 

waveamplitudefi] = 0; 

plotampfi] = 0; 

for 0=128; i<256; i++) { 

waveamplitudefi] = 255; 
plotampfi] = voltage; 

} 



writewavetoramO ; 

} 



void trianglewave(void) 

{ 

int i; 

wavepoint=3; 

for (i=0; i<256; i++) { 

waveamplitude[i] = i; 

plotamp[i] = i * voltage/255; 

} 

writewavetoramO ; 

} 

void getselectwave(void) 

{ 

switch (wavepoint) { 

case 0: dclineO; break; 
case 1: sinewave0; break; 
case 2: squarewave(); break; 
case 3: trianglewave(); break; 

} 

} 

void whichwave(void) 

{ 

char string[10]; 
float number; 

outportb(SETVOLT, voltage); 

number=voltage; 

setcolor(WHITE); 

rectangle(483,305,535,334); /*Voltage Box*/ 

setviewport(484,306,534,333,l); 

clearviewport(); 

settextstyle(TRIPLEX_FONT,HORIZ_DlR,2); 

sprintf(string, .2f ',number* . 01 96); 

outtextxy(3 ,0, string); 

setviewport(0,0,63 9,479, 1); 

setfillstyle(SOLID_FILL,RED); 

bar(5,320,number* 1 .7647+5,328); 

setfiUstyle(SOLID_FILL, WHITE); 

bar(number* 1.7647+5,320,454,328); 

getselectwave(); 

plotwaveO; 

} 



void selectwave(void) 

{ 

wavepoint-H-; 

if (wavepoint > 3) wavepoint=0; 
if (wavepoint = 1) { 

freqpoint=freqsave; 

tellfrequencyO; 

} 

if (wavepoint = 0) { 

freqsave=freqpoint; 
zerofrequencyO; 

> 

whichwaveO; 

} 

void tellgain(void) 

{ 

char string[2]; 

outportb(SETGAIN,gaiii); 

setcolor(WHITE); 

rectangle(280,416,300,443); 

setviewport(28 1,4 1 7,299,442, 1); 

clearviewportO; 

settext style(TRIPLEX_FONT,HORIZ_DIR, 2) ; 
sprintf(string, "%d",gain); 
outtextxy(4,0,string); 
setviewport(0,0,639,479, 1); 

} 

void tellinstrument(void) 

{ 

char string[3]; 
setcolor(WHITE); 
rectangle(3 50,4 16,3 83,443); 
setviewport(3 5 1,4 17,382,442, 1); 
clearviewportO; 

settextstyle(TRIPLEX_FONT,HORIZ_DIR, 2) ; 
sprintf(string, "%2d",instrument); 
outtextxy(4,0,string); 
setviewport(0, 0,639,479, 1); 

} 

void setoutQ 

{ 

set_colors(wnd_panel,ALL,RED,BLUE,BRIGHT); 



} 

void setbackO 

{ 

set_colors(wnd_panel,ALL,MAGENTA,GREEN,BRIGHT); 
} 

void soundpanel(void) 

{ 

int key=0; 
int i; 

wnd_panel = establish_window(0,0,25,80); 

set_colors(wndjanel 5 ALL ? MAGENTA,GREEN J BRIGHT); 

set_colors(wnd_panel ? ACCENT 5 BLUE J WHITE ; BRIGHT); 

display_window(wnd_paael); 

while (key != ESC) { 

wcursor(wnd_panel ? 0, 0); 

wprintf(wndjaneV'6=AM 7=VIB 8=EG-TYP 9=KSR 0-IncMULTI )=Dec 
MULTF); 

wprintf(wndjaneV'\n%#2d %#2d %#2d %#2d %#2d" ? 

(multi_am » 7),(multi_vib » 6) ? (multi_egtyp » 5), 

(multi_ksr » 4) 3 multi); 
wprintf(wnd_panel 3 M \nLevel key scale (0-3) (k) n ); 
wprintf(wnd_paneV = %#2d",toneJcsl); 
wprintf(wnd_panel, n \nTone Level (0-64) Inc (1) Dec (L) n ); 
wprintf(wnd_panel 3 " %#2d n ,tone_level); 

wprintf(wnd_panel, M \nh= Modulated wave half= %#2d j= Carrier wave half= 
%#2d " , tone_dc,tone_dm) ; 

wprintf(wnd_panel J ,, \nb= Increase Feedback (0-3)"); 
wprintf(wnd_paneV' = %#2d",tone_fb); 

wprintf(wnd_panel, "\na= Increase Attack Rate A= Decrease Attack Rate"); 
wprintf(wnd_panel," = %#2d", attack); 

wprintf(wnd_panel 5 n \nd= Increase Decay Rate D= Decrease Decay Rate"); 
wprintf(wnd_panel," = %#2d" 3 decay); 

wprintf(wnd_panel } "\nu= Increase Sustain Level U= Decrease Sustain Level"); 
wprintf(wnd_panel 3 " = %#2d",suslevel); 

wprintf(wnd_paneV , \ne= Increase Release Rate E= Decrease Decay Rate"); 
wprintf(wnd_panel, n = %#2d" 5 relrate); 

wprintf(wnd_panel 5 "\nm = Rhythm/Melody"); 
wprintf(wndjanel," = %#2d M ,(rhy_mel » 5)); 

wprintf(wnd_panel,"\np = Increase Pitch P= Decrease Pitch"); 



wprint^wndjanel," Pitch = %u ",pitch); 

wpnntf(wnd_panel, M \ns = Sustain ON/OFF = %#2d w= Key ON/OFF - %#2d M 3 
(susON_OFF » 5) 3 (keyON_OFF » 4)); 

wprintf(wndj3aneV'\nOctave Inc (o) Dec (O) %#3d Octave (f) %#2d M 3 
octave 3 f_num8); 

wprintf(wnd_panel 3 "\n\nlnstrument (i) = %#3d M 3 instrument); 
wprintf(wnd_panel 3 H Inc (+) Dec (-) Volume = %#3d" ? volume); 

wprintf(wnd_panel 5 n \n\n*************** PERCUSSION **************») ; 
wprintf(wnd_panel 3 "\n(l) %#2d Bass Drum Inc (z) Dec (Z) M 3 drum_BD » 4); 
setoutO; 

wprintf(wndj)anel ? "Vol - %#2d M 3 bd_vol); 
setback(); 

wprintf(wnd_panel 3 "\n(2) %#2d Snare.Drum Inc (c) Dec (C) " 3 drum_SD » 3); 
setout(); 

wprintf(wnd_panel, H Vol = %#2d" 3 sd_vol); 
setback(); 

wprintf(wnd_panel 5 "\n(3) %#2d Tom-tom Inc (v) Dec (V) M ,drum_TOM » 2); 
setoutO; 

wprintf(wnd_panel 3 n Vol = %#2d M 3 tom_vol); 
setbackO; 

wprintf(wnd_panel, n \n(4) %#2d Top Cymbal Inc (g) Dec (G) \drum_TCY » 1); 
setout(); 

wprintf(wnd_panel, n Vol = %#2d M ,tcy_vol); 
setbackO; 

wprintf(wnd_panel, "\n(5) %#2d High Hat Inc (x) Dec (X) n 5 drum_HH); 
setoutO; 

wprintf(wnd_panel ? "Vol = %#2d n ,hh_yol); 

setbackO; 

key=getchO; 

switch(key) { 

case '6': if (multi_am=0) multi_am=0x80; 
else multi_am=0; 

break; 

case 7': if (multi_yib=0) multi_vib=0x40; 
else multi_vib=0; 

break; 

case '8': if (multi_egtyp=0) multi_egtyp=0x20; 
else multi_egtyp=0; 

break; 

case '9': if (multi_ksr==0) multi_ksr=OxlO; 
else multi_ksr=0; 

break; 



case '0': multi-^; 
if(multi> 15)multi = 0; 
break; 

case ')'- multi--; 
if(multi<0)multi = 15; 
break; 

case 'k 1 : tone_ksl-H-; 

if (tone_ksl > 3) tone_ksl = 0; 
break; 
case T: tone_level-H-; 
if (tone_level > 63) tone_level = 0; 
break; 
case 'L': tonejevel--; 
if (tone_level < 0) tone_level = 63; 
break; 

case 'h': if (tone_dc=0) tone_dc=0xl0; 
else tone_dc=0; 
break; 

case 'j': if (tone_dm=0) tone_dm=0x08; 
else tone_dm=0; 

break; 
case 'b 1 : tone_fb++; 
if (tonejb > 3) tone_fb = 0; 
break; 

case 'a': attack++; 
if (attack > 15) attack = 0; 

break; 
case 'A': attack-; 

if (attack < 0) attack = 15; 

break; 
case 'd': decay-H-; 

if (decay > 15) decay = 0; 

break; 
case T>': decay--; 

if (decay < 0) decay =15; 

break; 

case 'u': suslevel++; 
if (suslevel > 15) suslevel = 0; 

break; 

case 'U 1 : suslevel--; 
if (suslevel < 0) suslevel =15; 

break; 



case 'e': relrate++; 
if (relrate > 15) relrate = 0; 

break; 

case 'E 1 : relrate—; 
if (relrate < 0) relrate = 15; 
break; 

case 'm': if (rhy_mel=0) rhy_mel=0x20; 
else rhyjnel^O; 
break; 

case T: if (drum_BD=0) drum_BD=OxlO; 
else drum_BD=0; 

break; 

case '2': if (drum_SD=0) drum_SD=0x08; 
else drum_SD=0; 

break; 

case '3': if (drum_TOM=0) drum_TOM=0x04; 
else drum_TOM=0; 

break; 

case '4': if (drum_TCY=0) drum_TCY=0x02; 
else drum_TCY=0; 

break; 

case '5': if (drum_HH=0) drum_HH=0x01; 
else drum_HH=0; 

break; 

case 'p': pitch-H-; 
break; 
case 'P': pitch--; 
break; 

case 's': if (susON_OFF==0) susON_OFF=0x20; 
else susON_OFF-0; 
break; 

case V: if (keyON_OFF=0) keyON_OFF=OxlO; 
else keyON_OFF=0; 

break; 

case ! o f : octave-H-; 
if (octave > 7) octave = 0; 

break; 

case '0': octave--; 
if (octave < 0) octave = 7; 

break; 

case T : if (f_num8) f_num8=0; 
else f_num8=l; 



break; 

case V: instrument-H-; 
if (instrument > 15) instrument = 0; 
break; 

case '+'; volume**; 

if (volume > 1 5) volume = 0; 

break; 
case volume--; 

if (volume < 0) volume =15; 

break; 

case f z': bd_yol++; 
if(bd_vol> 15) bd_vol = 0; 

break; 

case f Z': bd_vol--; 
if(bd_vol<0) bd_vol= 15; 

break; 

case *x': hh_vol++; 

if(hh_vol> 15)hh_vol = 0; 

break; 
case 'X': hh_vol~; 

if (hh_vol< 0) hh_vol = 15; 

break; 
case f c': sd_vol-H-; 

if(sd_vol> 15) sd_vol = 0; 
break; 
case 'C f : sd_vol--; 

if (sd_vol < 0) sd_vol = 15; 
break; 
case V: tom_vol++; 
if (tom_vol > 15) tom_vol = 0; 
break; 
case 'V: tom_vol--; 
if (tom_vol < 0) tom_vol =15; 
break; 

case 'g': tcy_vol-H-; 
if (tcy_vol > 15) tcy_vol = 0; 
break; 

case 'G': tcy_vol— ; 
if (tcy_vol < 0) tcy_vol =15; 
break; 

case onvolumeO; /*outportb(PPIPORTC ? portcstat & 0xF7);*/ 
outsound(OxOe ; 0); 
outsound(0 ? 0x17); 



outsound(l, 0x62); 
outsound(2 5 0x5b); 
outsound(3, 0x06); 
outsound(4, Oxfl); 
outsound(5, OxeO); 
outsound(6 5 0x£2); 
outsound(7, 0xf2); 
outsound(0xl0 3 Oxe5); 
outsound(0x20 5 0x06); 
outsound(0x30, 0); 
outsound(0x20, 0x16); 
delay(2000); 
outsound(0x20, 0x06); 
i = 0; 

for (i = 0;i>= 0;){ 

outsound(0x0e, 0); 
outsound(0, 0x21); 
outsound(l, 0x21); 
outsound(2 5 0x3f); 
outsound(3, 0); 
outsound(4, OxfO); 
outsound(5, OxfO); 
outsound(6, OxOf); 
outsound(7, OxOf); 
outsound(0x30, i<< 4); 
outsound(OxlO, 0x20); 
outsound(0x20, 0x05); 
outsound(0x20, 0x15); 
while (IkbhitO); 

i = getchO; 

if (i >= '0' &&i<= '9') 

i -= '0'; 
elseif(i>= , a'&&i<='f) 

i -= 'a' - OxOa; 

else 

i = -l; 

} 

outsound(0x20, 0x05); 

offvolumeO; /*outportb(PPIPORTC 5 portcstat | 0x08);*/ 
break; 
default: break; 

} 

onvolume(); 

outsound(V_MULTI ? multi_am | multi_vib | multi_egtyp | multi_ksr | multi); 
outsound(V_LEVEL2 J (tone_ksl « 6) | tonejevel); 



outsound(V_LEVEL3 s (tone_ksl « 6) | tone dc | tone_dm | tone_fb); 
outsound(V_ATDERATE, (attack « 4) | decay); 
outsound(V_SL_RR, (suslevel « 4) | relrate); 

percussion = drum BD | drum SD | drum_TOM | drumTCY | drum_HH; 
outsound(RHY_CTL, rhy_mel | percussion); 
outsound(V_FNUM ; pitch); 

outsound(V_BLOCK, susON_OFF | keyON_OFF | (octave « 1) | f_num8); 
outsound(INST_VOL, (instrument « 4) | volume); 
outsound(RHYTHM_VOL 1 ,bd_vol); 
outsound(RHYTHM_VOL2,(hh_vol « 4) | sd_vol); 
outsound(RHYTHM_VOL3,(tom_vol « 4) | tcy_vol); 
} 

ofivolumeO; 

delete_window(wnd_panel); 

} 

void setscale(void) 

{ 

graphscale=l .575;// for DCM Card 
} 

/* SERIAL STUFF */ 

int GetPortable(void) // DCM-M 
{ 

int total=0; 
int i; 

int nlnput; 

int nMinlnput =100; 
int nMaxInput = 0; 

for (i=0; KINDEX; i++) nBuffer[i] = 0; 

for (i=0; i<INDEX; i++) // average some bytes 

{ 

nlnput = SioGetc(SerPort,TICS); // get byte 
if (! nlnput) // filter zero 

{ 

if (i) nlnput = total/(i+l); // spurious if index not 0 
elsenSerFlag = 1; 

} 

if (nlnput = FREEZE) // filter FREEZE(-l) 

{ 

UnFreezeQ; 
nlnput = total/(i+l); 

} 



if (nlnput = Oxfi) // filter Oxff 
{ 

UnFreezeO; 
nlnput = total/(i+l); 

} 

if (nlnput) 

{ 

nBuffer[i] = nlnput; 

if (nMinlnput > nlnput) nMinlnput = nlnput; 
if (nMaxInput < nlnput) nMaxInput = nlnput; 

} 

if (nlnput = RIGHT || nlnput = LEFT) // if footpedal 

{ 

nosoundO; // turn off sound 
input = 0; // set graph line to 0 
nSerFlag - 0; // flag for footpedal 
return nlnput; // return non reading 

} 

total = nlnput + total; 

} 

if (nMinlnput < 7 || nMaxInput+nMinlnput < 15 || 

nMaxInput/nMinlnput > 2 || nBuffer[0]-nBuffer[99] > 5) 
nSerFlag = 0; 
else nSerFlag = 1; 

/* if (nlnput) 

{ 

cursor(45,15); 

printf("X=%#3 d N=%#3 d S=%#2d p=%#3d n=%#4d d=%#3 d", 
nMaxInput,nMinInput,nSerFlag, 

nMaxInput+nMinInput,nMaxInput-nMinInput,nMaxInput/nM 

}*/ 

if(lnSerFlag) 

{ 

nosoundO; 
total = 0; 

} 

nlnput = (total/i); 
input = nlnput*2.55; 

if (nlnput > LOWREAD && nSerFlag && pointfindflg) 
sound (nlnput* 10); 



else if (nlnput > 35) sound(nlnput*10); 
if (nlnput < LOWREAD) nosoundO; 
cursor(0,0); 
// if (nlnput) 

// for (i=0; i<INDEX; i++) 

// printf("%#2d.%#3d ",i,nBuffer[i]); 

// SioRxFlush(SerPort); 
return nlnput; 

} 

void DoOFFTestO 
{ 

SioError(SioPutc(SerPort,SWITCHOFFAA)); 
delay(nDTime*2); 

} 

void DoOFFO 
{ 

//delay(nPortD elay) ; 
SioPutc(SerPort, SWITCHOFFAA); 
delay(nPortDelay*6); 

} 

void DoONTest(void) 

{ 

int i; 

SioError(SioPutc(SerPort,SWITCHONCC)); 
SioError(SioPutc(SerPort, SWITCHON5 5)); 
SioError(SioPutc(SerPort,SWITCHON99)); 
delay(nDTime*2); 

} 

void DoON(void) 

{ 

int i; 

SioBaud(SerPort,Baud9600); 

delay(nPortDelay*6); 

SioPutc(SerPort,SWITCHONCC); 

SioPutc(SerPort, SWITCHON5 5); 

SioPutc(SerPort, SWITCHON99); 
// delay(nPortDelay); 
} 

void getinput(void) 

{ 



if (CARD==KEYCARD) 
{ 

GetCardO; 
return; 

} 

if (PORTABLE=KEYPORT) 
{ 

reading = GetPortableO; 
if (reading == FREEZE) 

{ 

delay(lO); 

reading = GetPortableO; 
if (reading == FREEZE) 

{ 

UnFreezeO; 
nTimes++; 
beepO; 
beepO; 

printf("T:%#4d" J nTimes); 
reading = 0; 

} 

} 

} 

} 

void ClearDCM(void) 

{ 

// SioPutc(SerPort,0); 
// SioPutc(SerPort,0); 
SioDone(SerPort); // done with serial port 

} 

void DisplayReadBaud(int nRead) 

{ 

cursor(5,3); 

printf( M Reading:%#4d",nRead); 
//if(nBaud = 5)printf("9600 "); 
//if (nBaud == 9) printf("l 15200"); 
} 

void CheckFor(void) 

{ 

int nPut = 0x00; 
int nRead = -1; 
while (nRead = -1) 



{ 

SioPutc(SerPort,nPut); 

nRead = SioGetc(SerPort,TICS); 

printf("\nRead: %#4d Put: %x",nRead, nPut); 

if (nPut = Oxfl) break; 

nPut++; 

} 

get_char(); 
} 

void SerialSetup(void) 

{ 

// nGetBuffer = Sizel28; 

SioRxBuf(SerPort, RxBuffer, nGetBuffer); 
SioTxBuf(SerPort, TxBuffer, Sizel6K); 
SioParms(SerPort, NoParity, OneStopBit, WordLength8); 
SioReset(SerPort, Baud9600); 
SioDTR(SerPort, 'S'); 
SioDelay(DELAY); 

SioDTR(SerPort, 'C'); // clear DTR 
SioDelay(DELAY); 

/* SioError (SioRxBuf(SerPort, Buffer, Sizel28)); 
SioError (SioParms(SerPort, NoParity, OneStopBit, WordLength8)); 
SioError (SioReset(SerPort, Baud9600)); 
SioError (SioDTR(SerPort, 'S')); 
SioError (SioDelay(DELAY)); 

SioError (SioDTR(SerPort, 'C')); // clear DTR 
SioError (SioDelay(DELAY)); */ 

SioPutc(SerPort,OxFO); // set to start 

} 

void SetupDCM(void) 
{ 

int 

int nRead; 

int nPut; 

int nKey; 

int nLookFor = 0; 

char cNum; 

//int nLow; 

//int nHigh; 



int nHighCount; 

int nCountS, nCount4, nCountS, nCount6; 

cursoroffQ; 
clrscrO; 

printf("This software and hardware are designed for use as an ohmmeter"); 
printf("\nand a signal generator. Their function is to be used by a"); 
printf("\nCEDS operator for measuring energy balance or imbalance with"); 
printf("\nthe ohmmeter and linking signals from the signal generator"); 
printf("\nto a balance or imbalance measured with the ohmmeter."); 
printf("\n\nThe manufacturer makes no medical claims."); 
delay(SOOO); 
clrscrO; 

printf("\nOn front of DCMR: Power light (green) ON."); 
printf("\n Reset/Prgm light (red) ON. "); 

printf( n \n\nlf no red Reset light. Press red Reset button on back of DCMR."); 
delay(3000); 

while (1) 
{ 

SerialSetupO; 

nRead = SioGetc(SerPort,TICS); 
if (nRead !=0xF8) 

{ 

SerPort++; 
SioDoneO; 

if (SerPort > 4) SerPort = 0; 
} 

if (nRead = 0xF8) break; 

if (SerPort = defaultvalues[7]) break; 

} 

if (nRead !=0xF8) 
{ 

printf("\nNo DCM Receiver detected. Code: %x", reading); 

printf("\nPlease check DCMR serial cable and power cable "); 

printf("\nlf Reset light is off, press Reset button on back of DCMR."); 

printf("\nThen start program again."); 

printf("\n\nC - DCM Card (Half size)"); 

printf("\nP - DCM Portable"); 

printf("\nS - Port"); 

putchar(BELL); 

delay(3000); 

boogieoutO; 

} 

putchar(BELL); 



printf("\nDCM Receiver detected at COM%d ",SerPort+l); 
delay(2000); 

printf("\n\nPort status: Clearing (0 to 30 seconds)"); 
while (nRead) nRead = SioGetc(SerPortJICS); 
clrscrO; 

printf("\n\nChecking DCM Receiver transmission."); 
printf("\n\nOn front of DCM: Power light (green) ON."); 
delay(1500); 

printf("\n Reset/Prgm light (red) OFF. "); 

printf("\n TXD (Transmit) RS-232 light (amber) ON. "); 

delay(lOOO); 

clrscrO; 
cursor(0,0); 

printf("DCM Receiver Ready"); 
cursor(2,2); 

printfC'l. Please turn on DCM now then calibrate DCM to 0."); 
cursor(2,5); 

printf("2. Please check the operation of the footpedal (FTSWT)."); 
cursor(2,8); 

printf("3. Press the Enter key to continue."); 
nLookFor = UNFREEZE; 
while (nRead != Oxfe) 
{ 

nRead = SioGetc(SerPort,TICS); 
I cursor(0,10); 
' printf("l O.Get%#4d ",nRead); 
' if (nRead = FREEZE) DoOFFTestO; 
' SioError(SioGetc(SerPort,TICS)); 

cursor(5,6); 

printf("Footpedal:"); 

if (nRead = RIGHT || nRead = LEFT) 

{ 

if (nRead = RIGHT) 
{ 

cursor(25,6); 
printf("Right"); 

} 

if (nRead = LEFT) 

{ 

cursor(16,6); 
printf("Left"); 

} 



{ 



DisplayReadBaud(nRead); 

cursor(16 5 6); 

clreolO; 

} 

if (kbhitO) 

{ 

nKey=get_char(); 

clrscrO; 

i=0; 

if(nKey = 'z') 
{ 

if (nLookFor == FREEZE) 
{ 

nLookFor = UNFREEZE; 

cursor(0,ll); 

printf(" 11.960 "); 

SioError(SioBaud(SerPort,Baud9600)); 

hBaud = Baud9600; 

cursor(0,12); 

printfC'IZ.Put '*); 

DoONTestO; 

cHckO; 

} 

else 

{ 

if (nLookFor = UNFREEZE) 

{ 

cursor(0,13); 

printfC'13.Put%#3d ",nBaud); 
beepO; 

DoOFFTestO; 
nLookFor = FREEZE; 
cursor(0,14); 
printf("14.115 "); 

SioError(SioBaud(SerPort,Baudl 1 5200)); 
nBaud = Baudl 15200; 

} 

} 

while (1) 
{ 

nRead = SioGetc(SerPort,TICS); 

cursor(0,15); 

i++; 

printf("15.Read:%#4d For:%#4d P:%#4d K:%#4d i:%#6d", 
nRead, nLookFor, nPut, nKey, i); 



if Ci = 1800) break; 

if (nRead = nLookFor) break; 

} 

} 

if(nKey = V) 
{ 

SioPutc(SerPort,0xbb); 
} 

if(nKey = 'f) 
{ 

FreezeTestO; 

} 

if(nKey = 'u') 
{ 

UnFreezeTestO; 

} 

if(nKey = '9') 

{ 

cursor(0,12); 
printfC 12.960 "); 

SioError(SioBaud(SerPort,Baud9600)); 
nBaud = Baud9600; 

} 

if(nKey = T) 

{ 

cursor(0,13); 
printf("13.115 "); 

SioError(SioBaud(SerPort,Baud 1 1 5200)); 
nBaud = Baud 115200; 

} 

if(nKey = 'c') 
{ 

cursor(0,15); 

printf("15PutON%#4d ON:%x %x %x", 

nRead,SWITCHONCC,SWITCHON55,SWITCHON99); 
DoONTestO; 

} 

if(nKey = V) 

{ 

cursor(0,16); 

printf("16PutOFF%#4d OFF:%x ", nRead, SWITCHOFFAA); 



DoOFFTestO; 
} 

if(nKey = 'i') 
{ 

cursor(0,0); 
i=0; 

while (1) 
{ 

if(kbhitO) break; 
nRead = SioGetc(SerPort,TICS); 
if (nRead < 6 && nRead) 
{ 

printf( ,,0 /o#4d ",nRead); 
i=l; 

} 

else 

{ 

if (i && InRead) printfC'^/otfSd'^nRead); 
i = 0; 

} 

} 

} 

if(nKey = 'j*) 
{ 

nCount3 = 0; 
nCount4 = 0; 
nCount5 = 0; 
nCount6 = 0; 
nHighCount=0; 
nRead = 0; 
while (1) 

{ 

if (kbhitO) break; 
nRead = SioGetc(SerPort,TICS); 
if (nRead = 3) nCount3++; 
if (nRead = 4) nCount4++; 
if (nRead = 5) nCount5++; 
if (nRead = 6) nCount6++; 

nHighCount = nCount3+nCovint4+nCount5+nCount6; 
if (nRead > 0) // && nRead < 6) 

printf("\nR=%#3d HC:%#5d 3=%#5d 4=%#5d 5=%#5d 

6=%#5d", 



nRead,nHighCount,nCount3,nCount4,nCount5 J nCount6); 

else 

if(lnRead) 
{ 

nCount3 = 0; 
nCount4 = 0; 
nCountS - 0; 
nCount6 = 0; 
nHighCount=0; 
} 

} 

} 

if(nKey = 'k') 
{ 

SioPutc(SerPort,OxBB); 

SioDone(SerPort); 

delay(2000); 

SerialSetupO; 

} 

if(nKey=='a') 
{ 

nTimes = 0; 
nCounter = 0; 
cNum =128; 
for (j=0;j<100;j++) 

• { 

if (FreezeTestO) 

{ 

DisplayReadB aud(nRead); 
for(i=0;i<10;i++) 

{ 

/* cursor(0,0); 

SioError(SioPutc(SerPort,cNum)): 
SioError(SioPutc(SerPort,cNum)): 
SioError(SioPutc(SerPort,cNum)): 
SioError(SioPutc(SerPort,cNum)): 
SioError(SioPutc(SerPort, cNum)); 
SioError(SioPutc(SerPort, cNum)); 
SioError(SioPutc(SerPort,cNum)): 
SioError(SioPutc(SerPort ; cNum)); 
SioError(SioPutc(SerPort ) cNum)): 
SioError(SioPutc(SerPort,cNum)) 
SioError(SioPutc(SerPort,cNum)) 



SioError(SioPutc(S erP ort , cNum)); 

SioError(SioPutc(SerPort,cNum));*/ 

SioPutc(SerPort,cNum); 

SioPutc(SerPort,cNum+l ); 

SioPutc(SerPort,cNum+2); 

SioPutc(SerPort,cNum+3); 

SioPutc(SerPort,cNum+4); 

SioPutc(SerPort,cNum+5); 

SioPutc(SerPort,cNum+6); 

SioPutc(SerPort,cNum+7); 

SioPutc(SerPort, cNum+8); 

SioPutc(SerPort,cNum+9); 

SioPutc(SerPort,cNum+l 0); 

SioPutc(SerPort,cNum+l 1); 

SioPutc(SerPort,cNum+l 2); 

} 

clrscrO; 

nTimes-i-+; 

cursor(40,9); 

printf( M 9.A.T:%#7d Baud:%#3d Num: %x", 

nTimes, nB aud, cNum); 
nRead = UnFreezeTestO; 
DisplayReadBaud(nRead); 
if(kbhit0) 

{ 

nKey = get_charO; 
if (nKey = '+') cNum-H-; 
else if (nKey = '-') cNum— ; 
else break; 

} 

clickO; 

} 



} 

} 

if -(nKey = UP) 
{ 

TICS++; 
cursor(40,3); 

printf("TICS:%#4d" > TICS); 
} 

if(nKey = DN) 
{ 

TICS-; 
cursor(40,3); 

printf("TICS :%#4d*',TICS); 



} 

if (nKey = PGUP) 

{ 

nDTime++; 
cursor(55,3); 

printf("Delay:%#4d" ) nDTime); 
} 

if(nKey = PGDN) 
{ 

nDTime--; 
cursor(55,3); 

printf("Delay:%#4d ,, J nDTime); 

} 

if (nKey = ENTER) return; 
if (nKey = ESC) boogieoutO; 
} 

} 

} 



/* POINT Module for LISTEN Program */ 
/* Copyright 1991-9 by James Hoyt Clark */ 



#include <stdio.h> 
#include <stdlib.h> 
#include <io.h> 
#include <fcntl.h> 
#include <sys\types.h> 
#include <sys\stat.h> 
#include <graphics.h> 
#include <time.h> 
#include <dos.h> 
#include <string.h> 
#include <conio.h> 
#include <alloc.h> 
#include <math.h> 
#include "twindow.h" 
#include n keys.h" 
include "pcxlib.h" 

#definexplace 180 
#define ptlen 69 
#define numpts 54 
#define lco!210 
#define gcount 25 

extern int reading; 
extern int wavepoint; 
extern int g_mode; 
extern int bkcolor; 
extern int pointcolor; 
extern int postcolor; 
extern int basecolor; 
extern int lowcolor; 
extern int letter2color; 
extern int accentcolor; 
extern long int pointpoint; 
extern char ptname[8]; 
extern char ptinfo[53]; 
extern char pointflag; 
extern char infoflag; 
extern char tokey; 
extern char fromkey; 
extern char diagram; 
extern char lastanatomy; 



extern char ifgraphic; 
extern char iftgraph; 
extern char outflag; 
extern char outholdflag; 
extern int foot; //?????? 
extern char board; 
extern unsigned char voltage; 
extern unsigned char max; 
extern unsigned char min; 
extern unsigned char rise; 
extern unsigned char fall; 
extern char freqname[7]; 
extern int CARD; 
extern int PORTABLE; 
extern int SerPort; 
extern int IRDA; 

extern char pnum; /* printer */ 

extern char wholename[60]; 
extern WINDOW *wnd_outhold; 
extern char findname[12]; 
extern char filename[80]; 
extern void (*helpfunc)(); 
extern void helpO; 
extern char msg_line[80]; 

/* extern struct holdvrecord 

{ 

char ptname[8]; 
unsigned char voltage; 
char freqname[7]; 
int waveshape; 
inty; 
int z; 

}; 

extern struct holdvrecord holdv[90];*/ 

extern struct { 

char last[20]; 
char first[20]; 
char number[8]; 
char nick[20]; 
char addr[20]; 
char city[20]; 



char state[5]; 
char zip[8]; 
char ctry[20]; 
char phone[ll]; 
char dt[7]; 
char birth[7]; 
char doc[9]; 
char type[5]; 
char sex[2]; 
char ethnic[20]; 
char amt[6]; 
char extra[8]; 
char visits; 
char samples; 
} client; 

WINDOW *wnd_point; 
WINDOW *wnd_ptiny; 
WINDOW *wnd_viewpt; 
WINDOW *wnd_volts; 



unsigned char diskbuffer[100]; 

long int npoint; /* Number of points */ 

long hit usepoint; /* Selected point user list */ 

long int pstart; /* Point start */ 

long int pend; /* Point end */ 

long int last; 

long int savepoint; 

unsigned int lastcol,lastrow; 

unsigned int col,row; 

unsigned int xpos; 

unsigned int ypos; 

unsigned int lastxpos=10; 

unsigned int lastypos=10; 

char barmaxflag; 

char userptcode; 

char listviewflg=0; 

char meridianflg=0; 

long int usept[1200]; 

char frompoint[8]; 

struct pointrecord 

{ 

char ptname[8]; /* 0-7 */ 
unsigned char premax; /* 8 */ 



unsigned char premin; 
unsigned char prerise; 
unsigned char prefall; 
unsigned char postmax; 
unsigned char postmin; 
unsigned char postrise; 
unsigned char postfall; /* 14 */ 
char ptcode; /* 15*/ 
char arrow; 

}; 

struct pointrecord point[1200]; 
/* RESEARCH */ 
void labelpercentO 

{ 

char temp[3]; 
intj; 

inti=100; 
for(j=0;j<9;j++){ 

itoa(i,temp,10); 

outtextxy(75J*40+45,temp); 

line(95,j*40+50, 100j*40+50); 

line(95,250,620,250); 

i=i-20; 

} 

> 

void growth() 

{ 

int key=0; 

char save_screen[25*80*2]; 
int MaxX; 
int MaxColors; 

int xstep ? color,top 3 bottom ? spacing,yplace; 
char string[40]; 
int ij; 

int percentchange[gcount]; 
int percentplace[gcount]; 
int difference[gcount]; 
extern void (*helpfiinc)0; 
extern void helpO; 

for (i=0; i<gcount; i++) percentplace[i] = 9999; 
j=0; 

for (i=0; Knpoint; i++) { 



if (point[i]. arrow = '<') { 

percentchange[j] = (((point[i].premax + point[i].premin)/2)-50)*2; 
percentplace[j] = i; 

diflFerenceQ]=(point[i].premax-50)-(point[i].premin-50); 
} 

} 

gettext( 1 , 1 , 80,2 5, save_screen); 
setgraphmode(g_mode); 
setbkcolor(EGA_LIGHTGRAY); 
setcolor(DARKGRAY); 
setusercharsize( 1,1,1,1); 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR - SIZE); 

unspace_nameO; 

outtextxy(5, 1 ,wholename); 

labelpercentO; 

settextstyle(SMALL_FONT,VERT_DIR 5 USER_CHAR_SIZE); 

outtextxy(60,2 10, "Percent Change"); 

rectangle(100,20 5 620,420); 

xstep=15; 

spacing=5; 

j=110; 

for (i=0; Kgcount; i++) { 

if (percentplace[ij N9999) { 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR_SIZE); 
sprintf(string/'%d %d %d M ,i+l,percentchange[i],difference[i]); 
outtextxy(l,i* 10+20,string); 
color = random(MaxColors); 
setfillstyle(i+ 1 , color); 
yplace = 250; 

if (point[percentplace[i]].premax != 0 ) { 
if (percentchange[i] < 0) { 
top = 250; 

bottom = 250-(percentchange[i]*2); 
yplace = bottom; 

} 

else { 

top = 250-(percentchange[i]*2); 
bottom = 250; 

} 

bar3d(j,topj+xstep,bottom,5,l); 

line(j+(xstep/2),top+diflFerence[i],j+(xstep/2),top-diflFerence[i]); 

line(j+(xstep/2-3),top+difFerence[i]j+(xstep/2+3),top+difference[i]); 

lineO+(xstep/2-3),top-diflference[i],j+(xstep/2+3),top-diflFerenceH 

} 



settextstyle(SMALL_FONT 3 VERT_DIR 3 USER_CHAR_SIZE) 

sprint^string, "%s",point[percentplace[i]].ptname); 

outtextxy(j+2,yplace,string); 

j += xstep; 

j += spacing; 

} 

} 

while (key != ESC) key = get_char(); 

settextlO; 

backtextO; 

puttext( 1 , 1 , 80,25, save_screen); 

/* DISK OPS */ 

/*void saveholdv(int holdpos) 

strncpy(holdv[holdpos].ptname,point[usept[pointpoint]].ptname,8); 
holdvfholdpos]. voltage = voltage; 

strcpy(holdv[holdpos].freqname,freqname); 

writeholdvfileO; 

} */ 

void selectpointsO 

{ 

long int i; 
usepoint=0; 

for (i=0; Knpoint; i++) { 

if (point[i].ptcode <= userptcode) { 
usept[usepoint]=i; 
usepoint-H-; . 

} 

} 

} 

void selectpointsletter(int letter) 

long int i; 
usepoint=0; 

for (i=0; i<npoint; i+f) { 

if (point[i].ptcode = letter) { 
usept[usepoint]=i; 
usepoint++; 

} 

} 



} 

void getpoint(long int position) 

{ 

int fhandle,ij; 

if ((£handle=open( "POINT.DAT " , 0_RDONLY| OJBINARY)) = -1) { 
operationinfo("errorop",10,5,yeskey); 
exit(l); 

} 

lseek(fhandle ) ptlen*position ) SEEK_CUR); 
if ((read(fhandle,diskbufiFer,ptlen)) = -1) { 

operationinfo("errorrd", 1 0,5,yeskey); 

exit(l); 

} 

strncpy (p tname, diskbuff er, 8) ; 
j=0; 

for (i=9; i<62; i++) { 

ptinfo [j ]=diskbuffer [i] ; 

} 

xpos = (diskbuffer[62] & 0x01)*0xl00+diskbuffer[63]; 
ypos = diskbuffer[64]*0xl00+diskbufifer[65]; 
diagram = diskbuffer[66]; 
close(fhandle); 

} 

void writeptread(long int position) 

{ 

int fhandle; 
long int poslong; 
position=usept [position]; 
strncpy(diskbujffer ? point[position] .ptname, 8); 
diskbuflFer[.8]=point[position].premax; 
diskbufFer[9]=point[position].premin; 
diskbuffer[ 1 0]=point[position] .prerise; 
diskbuffer[ 1 l]=point[position] .prefall; 
diskbuflFerf 1 2]=point[position] .postmax; 
diskbuffer [ 1 3 ]=point[position] .postmin; 
diskbuffer[ 14]=point[position] .postrise; 
diskbuflFer[ 1 5]=point[position] . postfall; 
diskbuflFer[ 1 6]=point[position] .ptcode; 
diskbufFer[ 1 7]=point [position] . arrow; 
if ((fhandle=open('TTREAD^^ 

operationinfo("errorrd" , 1 0, 5 5 yeskey); 

exit(l); 



} 

poslong= 1 8 *position; 
lseek(fhandle,poslong, SEEK_CUR); 
if (write(fhandle,diskbuffer,18) = -1) { 

operationinfo("errorwt", 1 0,5,yeskey); 

exit(l); 

} 

close(fhandle); 

} 

void readpointfileO 

{ 

FILE *fptr; 
npoint=0; 

if( (fptr=fopen("PTREAD.DAT","rb"))=NULL ) { 
operationinfo("errorfl", 1 0,5,yeskey); 
exit(O); 

} 

else { 

while( fread(&point[npoint] 3 sizeof(point[0]) 3 l 5 §)tr)=l ) npoint++; 
fclose(fptr); 

} 

selectpointsO; 

} 

void writepointfileO 

{ 

FILE *fptr; 

if( (^tr=fopen("PTREAD.DAT", M wb"))=NULL ) { 
operationinfo("errorfl",10,5,yeskey); 
exit(O); 

} 

else { 

fwrite(point ? sizeof(point[0]) 5 npoint,^)tr); 
fclose(fptr); 

} 

} 

void zeropoint(long int j) 

{ 

point [j ]. premax=0 ; 
point[j].premin=0; 
point[j] .prerise=0; 
point [j].prefall=0; 
point[j] .postmax=0; 



point(j].postmin=0; 
point[j].postrise=0; 
p oint [j ] . p ostfall=0 ; 

} 

void changeptcodeO 

{ 

char key; 

twobeUsO; 

key = get_charO; 

key = toupper(key); 

if(key>'@' && key<*D { 

point[usept [pointpoint]]. ptcode = key; 

writeptread(pointpoint); 

} 

void nxtpointO 

{ 

pointpoint-H-; 

if (pointpoint > usepoint-1) pointpoint = 0; 

} 

void prevpointO 

{ 

pointpoint—; 

if (pointpoint < 0) pointpoint = usepoint-1; 

} 

void showinfopointO 

{ 

getpoint(usept[pointpoint]); 
wcursor(wnd_point 5 0 5 20); 
if (infoflag) { 

reverse_video(wnd _point); 

wprintf(wnd_point ? M %s n ,ptinfo); 

normal_video(wnd_point); 

else { 

wprintf(wnd_point, " "); 

} 

} 



void clearptarrowO 

{ 



long int i; 

for (i=0; i<npoint; i++) point [i]. arrow = ' '; 
writepointfileO; 

} 

ptarrowcountO 

{ 

int ij=0; 

for (i=0; i<npoint; i++) if (point[i]. arrow = '<') j++; 

return j; 

} 

void onelistpoint(long int j) 

{ 

if (pointpoint = j) { 

showinfopointO; 

lastcol=col; 

lastrow=row; 

reverse_video(wnd_point); 
wcursor(wnd_point,col 5 row); 

wprintf(wnd _point 5 n %s%c M ? point[usept[j]] .ptname,point[usept[j]] .arrow); 

if (pointflag) { 

wprintf(wnd_point ? n %#3d %#3d %#3d %#3d", 
point[useptO]]postmax,point[usept[j]].postmin 3 
point[usept[j]].postrise 5 point[usept[j]].postfall); 

} 

else wprintf(wnd_point 5 M %#3d %#3d %#3d %#3d", 

point[usept[j]].premax,point[usept[j]].premin ? 

point[usept[j]].prerise,point[usept[j]].prefall); 
normal_video(wnd_point); 

} 

void display_points() 
{ 

long intj; 

col=0; 

row=l; 

display_wind o w(wnd_p oint) ; 

if (pointpoint > pstart+numpts-1) { 

pstart=pointpoint; 

clear_window(wndjpoint); 

} 

if (pstart+numpts < usepoint) pend = pstartf-numpts; 
else pend = usepoint; 



for (j=pstart; j<pend; j++) { 
onelistpoint©; 
col = coR27; 
if(col>60) { 

col=0; 

row-H-; 

} 

} 

} 

void showviewO 
{ 

longintj; 

wcursor(wnd_viewpt 5 0, 0); 
for (j=pstart; j<pend; j++) { 
getpoint(usept[j]); 

if (j = pointpoint) reverse_video(wnd_viewpt); 
wprintf(wnd_viewpt ? "%s %s %c^ptname 5 ptinfo ? point[usept[j]].ptcode); 
if (pend != j) wprint^wnd^yiewpt/'Nn 11 ); 
normal_video(wnd_viewpt); 

> 

void setpointwindow() 

{ 

intj; 

showline("msg_PtTitle "); 

set_title(Avnd_point,msg_line); 

set_colors(wnd_point,ALL,pointcolor,WHITE,DIM); 

set_colors(wndjDoint,ACCENT,accentcolor,WHITE,BRIGHT); 

display jiointsO; 

if (pointflag) showline("msg_PostMMRF "); 
else showline("msg_BaseMMRF "); 
for G=0;j<3;j++){ 

wcursor(wnd_point,j *27,0); 

wprintf(wnd_point,msg_line); 

} 

} 

void displaypoint() 

{ 

display_window(wnd_ptiny) ; 
if (pointflag) { 

set_colors(wnd_ptiny, ALL, postcolor, WHITE, DIM); 

wprintf(wnd_ptiny, M \n %s %#3d %#3d %#3d %#3d", 



point[usept[pointpoint]].ptname, 

point[usept[pointpoint]].postmax,point[usept[pointpoint]].postmii^ 
point[usept[pointpoint]].postrise,point[usept[pointpoint]].postfaII); 

} 

else { 

set_colors(wnd_ptiny, ALL, basecolor, WHITE, DIM); 
wprintf(wnd jtiny, M \n %s %#3d %#3d %#3d %#3d ,, J 
point[usept[pointpoint]].ptname, 

point[usept[pointpoint]].premax 5 point[usept[pointpoint]].premin 5 
point[usept[pointpoint]].prerise 3 point[usept[pointpoint]].prefall); 

} 

} 

void gosetptinyO 

{ 

wnd_ptiny = estabHsh_window(42,0,3,27); 
showline( M msg_PointMMRF "); 
set_title(wnd_ptiny ,msg_line) ; 

set_colors(wnd_ptiny, ALL, letter2color, WHITE, DIM); 
displaypointO; 

} 

void showchange(int aboveORone) 

{ 

if (aboveORone) selectpointsletter(aboveORone); 

else selectpointsO; 

if (listviewflg) showviewO; 

else { 

clear__window(wnd_point); 
setpointwindowO; 

} 

pstart=0; 
pointpoint=0; 

> 

void changepoints(void) 

{ 

int key=0; 

WINDOW *wnd_chanpt; 
setmenuhelp("slpoint",20, 14); 
while (key != ESC) { 

wnd_chanpt = establish_window(67,20,5,13); 

showline("msg_Select "); 

set_title(wnd_chanpt,msg_line); 

set_colors(wnd_chanpt,ALL,BLACK,AQUA,DIM); 



set_colors(wnd_chanpt 5 ACCENT 5 accentcolor,WHITE 5 BRIGPrr); 

display_window(wnd_chanpt); 

wcursor(wnd_chanpt 5 1.0); 

showline( n msg_ListCharactr n ); 

\vprintf(wnd_chanpt 3 msg_line ) userptcode); 

wcursor(wnd_chanpt, 1,1); 

showline("msg_UsedPoints "); 

wprinlf(wnd_chanpt 5 msg_line,usepoint); 

wcursor(wnd_chanpt, 0, 2) ; 

showline("msg_TotalPoints "); 

wprint^wnd^hanpt^sg^inejnpoint); 

key = get_char0; 

key = toupper(key); 

delete_window(wnd_chanpt) ; 

if(key>*@' && key<T) { 

sho wchange(key) ; 

userptcode=key; 

} 

switch(key) { 

case RSWITCH: 

case DN: userptcode-H-; 

if (userptcode > 'Z') userptcode = 'A'; 

showchange(O); 

break; 
case LSWITCH: 
case UP:userptcode~; 

if (userptcode < 'A') userptcode = f Z'; 

showchange(O); 

break; 

default: break; 

} 

} 

} 

void meridianO 

{ 

char temp [3]; 
long int i; 
temp[2]=0; 
savepoint=pointpoint; 

strncpy(temp 3 point[usept[pointpoint]].ptname ? 2); 

usepoint=0; 

for (i=0; i<npoint; i++) 

if (strncmp(temp,point[i].ptname 3 2) = 0) { 
usept[usepoint]=i; 



usepoint-H-; 

} 

pstart=0; 
pointpoint=0; 

} 

void pointbarheading(void) 
{ 

setviewport(0, 1 0, 1 78, 18,1); 

clearviewportO; 

setcolor(pointcolor); 

if (barmaxflag) showUae( M msg_PointMMMM "); 
else showline("msg_PointRFRF "); 
outtextxy(3 , 0,msg_line); 
} 

void display_pointbars(void) 

{ 

long int j,k; 
long int linenum; 
int maxlen,minlen; 
char string[25]; 
char string 1 [24]; 

if (pstart+40 < usepoint) pend = pstart+40; 
else pend = usepoint; 
linenum = 0; 

for (j=pstart; j<pend; j++) { 
k=(linenum+2)*10; 
if (j = pointpoint) { 

setcolor(bkcolor); 

rectangle( 1 ,last,xplace- 1 ,last+ 1 0); 

setviewport(50,k,xplace-l,k+10, 1); 

clearviewportO; 

setviewport(0, 0,63 9,479, 1); 

setcolor(lowcolor); 

rectangle( 1 ,k,xplace- 1 ,k+ 1 0); 

last=k; 

} 

setcolor(pointcolor); 

settextjustify(LEFT_TEXT, TOP_TEXT); 
setviewport(0, 0,63 9,479,1); 
if (barmaxflag) { 

maxlen = point[usept[j]].premax*4+xplace; 

minlen = point[usept[j]].premin*4+xplace; 



setfillstyle(SOLID_FILL 3 RED); 

barfcplace^minler^k-KJ); 

setfiUstyle(SLASH_FILL 5 BLUE); 

ba^minlen^maxlei^k-KS); 

setfiUstyle(SOLID_FILL ; bkcolor); 

ba^maxlen^xplace^OC^k-KB); 

k=k+4; 

maxlen = point[usept[j]].postmax*4+xplace; 

mini en = point[usept[j]].postmin*4+xplace; 

setfiUstyle(SOLE)_FILL 5 BLUE); 

bar(xplace 3 k,minlen,k+3); 

setfillstyle(SLASH_FILL,RED); 

bar(minlen 5 k,maxlen 5 kH-3); 

setfillstyle(SOLID_FILL 3 bkcolor); 

bar(maxlen ? k 5 xplace+400,k+3); 

sprintf(string 5 n %s%#3d %#3d %#3d %#3d" 3 

point[usept[j]] .ptname, 

pointfuseptfjJJ.premax^pomttuseptljll.premin, 

point[usept[j]].postmax J point[usept[j]].postmin); 

> 

else { 

maxlen = point[usept[j]].prerise*4+xplace; 
minlen = point[usept[j]].prefall*4+xplace; 
setfillstyle(SOLID_FrLL ? YELLOW); 
bar(xplace 5 k,minlen,k+3); 
setfillstyle(SL ASH_FILL 3 GREEN); 
bar(minlen 5 k 5 maxlen ? k+3); 
setfiUstyle(SOLID_FE,L 3 bkcolor); 
bar(maxlen,k,xplace+400,k+3); 
k=k+4; 

maxlen = point[usept[j]].postrise*4+xplace; 
minlen - point[usept[j]] .postfall*4+xplace; 
setfillstyle(S OLE)_FILL ? GREEN) ; 
bar(xplace,k,minlen 3 k+3); 

setfillstyle(SLASHJFELL, YELLOW); 

ba^rrinlen^maxle^k+S); 

setfillstyle(SOLID_FILL 3 bkcolor); 

bar(maxlen 3 k,xplace+400,k+3); 

sprintf(string J ,, %s%#3d %#3d %#3d %#3d M , 

point[usept[j]] .ptname, 

point[usept[j]] .prerise,point[usept[j]] .prefall 3 

point[usept[j]].postrise 3 point[usept[j]].postfall); 

} 

outtextxy(4 5 (linenum+2)* 1 0+2 3 string); 
linenum-H-; 



} 

line(3 80,20,3 80,420); 
} 

void display lpointbarO 

{ 

long int k,linenum; 
int maxlen, minlen; 
char string[25]; 

linenum = pointpoint-pstart; 
k=(linenum+2)*10; 
setcolor(bkcolor); 
setviewport(50 3 k,xplace-l ? k+10, 1); 

clearviewportO; 

setviewport(0 3 0, 639,479, 1); 

setcolor(lowcolor); 

rect angle( 1 , k, xplace- 1 , k+ 1 0) ; 

last=k; 

if (barmaxflag) { 

maxlen = point[usept[pointpoint]].premax*44-xplace; 

minlen - point[usept[pointpoint]].premin*4+xplace; 

setfillstyle(SOLID_FILL J RED); 

bar(xplace 5 k,minlea,k+3 ); 

setfillstyle(SLASH_FILL ? BLUE); 

bar(minlen ? k,maxlen 5 k+3); 

setfillstyle(SOLID_FILL,bkcolor); 

bar(maxlen,k 5 xplace+400,k+3); 

k=k+4; . 

maxlen = point[usept[pointpoint]].postmax*4+xplace; 

minlen = point[usept[pointpoint]].postmin*4+xplace; 

setfillstyle(SOLID_FILL 5 BLUE); 

bar(xplace ; k,minlen,k+3); 

setfillstyle(SLASH_FILL ? RED); 

bar(minlen,k,maxlen,k+3); 

setfillstyle(SOLED_FILL ? bkcolor); 

bar(maxlen,k,xplace+400 5 k+3); 

sprintf(string/'%s°/o#3d %#3d %#3d %#3d", 

point[usept[pointpoint]] .ptname,point[usept[pointpoint]] .premax, 

point[usept[pointpoint]].premin 5 point[usept[pointpoint]].postmax 5 

point[usept[pointpoint]] .postmin); 

} 

else { 

maxlen = point[usept[pointpoint]].prerise*4+xplace; 
minlen = point[usept[pointpoint]].prefall*4+xplace; 



setfiUstyle(SOLID_FILL, YELLOW); 

bar(xplace.k,minlen,k+3); 

setffllstyle(SLASH_FILL, GREEN); 

bar(minlen,k,maxlen,k+3); 

setfiUstyle(SOLID_FILL 3 bkcolor); 

bar(maxlen,k,xplace+400,k+3); 

k=k+4; 

maxlen = point[usept[pointpoint]].postrise*4+xplace; 

minlen = point [usept[pointpoint]].postfall*4+xplace; 

setfillstyle(SOLED_FILL, GREEN); 

bar(xplace 3 k 3 minlen 3 k+3); 

setfiUstyle(SLASH_FILL 3 YELLOW); 

b ar (mini en, k, maxl en, k+3 ) ; 

setfiUstyle(SOLID_FILL 5 bkcolor); 

bar(maxlen,k,xplace+400,k+3); 

sprintf(string 5 M %s%#3d %#3d %#3d %#3d", 

point[usept[pointpoint]] .ptname,point[usept[pointpoint]] .prerise, 

pointfusepttpointpointJJ.pref^pointfusepttpointpointlJ.postrise, 

point[usept[pointpoint]].postfall); 

} 

setcolor(pointcolor); 
outtextxy(4,(linenum+2)* 1 0+2,string); 
line(3 80,20,380,420); 
} 

void showinfographO 

{ 

char string[53]; 
if (infoflag) { 

getpoint(usept[pointpoint]); 

setviewport(0,0,639 3 479, 1); 

setcolor(pointcolor); 

rectangle(l,442,420,456); 

setviewport(2,443 5 419 5 455,l); 

clearviewportO; 
sprintf(string ? "%s",ptinfo); 
outtextxy (4, 2 , string) ; 
setviewport(0,0,639,479,l); 

} 

else { 

setviewport(l 5 4 42 5 4 20 5 45 6 ? l); 
clearviewportO; 

} 

} 



void displaypointgraphO 

{ 

char string[35]; 
int fillcolor; 

getpoint(usept[pointpoint]); 

setcolor(pointcolor); 

setviewport(0,0,639,479, 1); 

rectangle(40,426,23 1,437); 

setviewport(0,4,290,421, 1); 

setfillstyle(SOLED_FBLL 3 BLACK); 

settextjustify(LEFT_TEXT 5 TOP_TEXT); 

if (diagram != last anatomy) dopicture(diagram); 

else fillellipse(lastxpos,lastypos,3,3); 

if (diskbuffer[62] > 1) fillcolor=EGA_RED; 

else fillcolor=EGA_WHITE; 

setfillstyle(SOLID_FILL 3 fillcolor); 

fillellipse(xpos J ypos ? 3 5 3); 

setcolor(pointcolor); 

setviewport(4 1 ,427,23 0,43 6, 1 ); 

clearviewportO; 

sprintf(string, M %s %#3d %#3d %#3d %#3d", 
point[usept[pointpoint]] .ptaame, 

point [usept[pointpoint]] .premax,point [usept [pointpoint]] .premin, 

point[usept[pointpoint]].postmax ? point[usept[pointpoint]].postmin); 

outt extxy (4, 2, string) ; 

setviewport(0,0, 63 9,479,1); 

lastanatomy=diagram; 

lastxpos=xpos; 

lastypos^ypos; 

showinfographO; 

} 

void pointhomeO 

{ 

long int i; 

for (i=pointpoint; i>0; i— ) { 
getpoint(usept[i]); 
if (diagram != lastanatomy) break; 
pointpoint=i; 

> 

displaypointgraphO; 

} 



void pointendO 

{ 



long int i; 

for (i=pointpoint; Kusepoint; i++) { 
getpoint(usept[i]); 
if (diagram != lastanatomy) break; 
pointpoint=i; 

} 

displaypointgraphO; 

> 

void storepreO 

{ 

point[usept[pointpoint]].premax = max; 
point[usept[pointpoint]].premin = min; 
point[usept[pointpoint]].prerise = rise; 
point[usept[pointpoint]].prefall = fall; 

} 

void storepost() 

{ 

point[usept[pointpoint]].postmax = max; 
point [usept[pointpoint]].postmin = min; 
point[usept[pointpoint]].postrise = rise; 
point[usept[pointpoint]].postfall = fall; 

} 

void clearbars() 

{ 

setviewport(l,20,580,420, 1); 

clearviewportO; 
setviewport(0,0, 639,479, 1); 

} 

void labelbarbox() 

{ 

int j; 

char string[4]; 
setviewport(0,0, 63 9,479, 1 ); 
rectangle(0,19,581,421); 
forG=0;j<5;j++){ 

itoaO*25,string,10); 

outtextxy(j*97+xplace, 1 1, string); 

outtextxy(j*97+xplace, 423, string); 

} 

} 



void switchpointO 
{ 

long intj; 

for (j=0; j<usepoint; j++) { 

if (strcmp^ompointjpointfuseptljlj.ptname) = 0) { 
pointpoint^j; 

beepO; 
return; 

} 

> 

makesound(50,3); 

} 

void switchtooth(char direction) 

{ 

static int updown[32] = {32,31,30,29,28,27,26,25,24,23,22,21,20,19,18,17, 

16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1}; 

static int lefiit[32] = {16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1, 

32,31,30,29,28,27,26,25,24,23,22,21,20,19,18,17}; 

char ascii[3]; 
int number; 

strcpy(frompoint,point[usept[pointpoint]].ptname); 
ascii[0]=point[usept[pointpoint]] .ptname[ 1 ] ; 
ascii[ 1 ]=point [usept[pointpoint]] .ptname[2] ; 
ascii[2]=0; 
number=atoi(ascii); 

if (direction = XT) number = updown[number-l]; 

else number = lefrit[number-l]; 

itoa(number,ascii, 10); 

frompoint[ 1 ]=ascii[0] ; 

if (number < 10) frompoint[2] = * '; 

else frompoint[2] = asciifl]; 

switchpointO; 

} 

void otherpointO 

{ 

char len; 

strcpy(fromp oint,p oint [usept [pointp oint] ] . ptname); 
if (diagram = M') { 

switchtooth('O f ); 

return; 

} 

if (ptname[0] = 'F && ptname[l] = 'A') { 
frompoint[0] = 'S 1 ; 



frompoint[l] = , P'; 

} 

elseif(ptname[l] = 'P') { 
frompoint[0] = '?'; 
frompointfl] = 'A'; 

} 

len=6; 

if (point[usept[pointpoint]].ptname[6] = ' ') len=5; 

if (point[usept[pointpoint]].ptname[5] = ' ') len=4; 

if (point[usept[pointpoint]].ptname[4] = ' ') len=3; 

if (point[usept[pointpoint]].ptname[len] = 'R) frompoint[len]-L'; 

else frompoint[len]- R; 

switchpointO; 

> 

void foothandO 

{ 

charj; 

getpoint(usept[pointpoint]); 
j = diagram; 
j=toupperO); 

if (j = 'H') strcpy(frompoint,"FICR "); 
if G == T') strcpy(frompoint,"PCCR "); 
if 0 = 'P ) strcpy(frompoint,"FIC_R "); 
if G = 'Q') strcpy(frompoint,"PCC_R "); 
if(j = 'M'){ 

switchtooth('U'); 

return; 

} 

switchpointO; 

> 

void vbarsO 

{ 

char save_screen[25*80*2]; 

int MaxX; 

int MaxColors; 

long int extpoint[10]; 

char extvalue[10]; 

char str[40]; 

unsigned char prtstatus; 

struct viewporttype vp; 

int ij; 

int xstep, ystep,color,bheight,hdifF; 
char buffer [4]; 



char h,maxs[2000]; 

int key=0; 

j=0; 

for (i=0; i<npoint; i++) { 
h=point[i] .premax; 
if(h=100)h=l; 
if(h>50)h=100-h; 
maxs[j]=li; 

} 

for(i=0; i<10; i++) { 

extpoint[i]=3999; 
extvalue[i]=99; 

} 

for (j=0;j<10;j++){ 

for (i=6; Knpoint; i++) { /*ignore first 6 */ 
if(rnaxs[i] != 0) { 

if (maxs[i] < extvalue[j]) { 
extpoint[j]=i; 
extvalue[j ]=maxs [i] ; 

} 

} 

} 

maxs[extpoint[j]]=0; 

} 

gettext( 1 , 1, 80,25, save_screen); 
setgraphmode(g_mode); 
Bibox(l,0,0); 
setbkcolor(bkcolor) ; 
MaxX=getmaxx(); 
MaxColors=getmaxcolor()+l ; 
setcolor(MaxColors- 1 ) ; 
getviewsettings(&vp); 

settextjustify(CENTER_TEXTJOP_TEXT); 
settextstyle(TRIPLEX_FONT 3 HORIZ_DIR,3); 
showline( M msg_Extremes "); 
outtextxy(MaxX/2, 1 6,msg_line); 
settextlO; 

h = 3 * textheightC'H"); 

setviewport(vp.left+50, vp.top+40, vp.right>50 ? vp.bottom-10 ? 1); 

getviewsettings( &vp ); 

line(h ? h ? h ? vp.bottom-vp.top-h); 

line(h,(vp.bottom-vp.top)-h, (vp.right-vp.left)-h, (vp.bottom-vp.top)-h); 
xstep = ((vp.right-vp.left) - (2*h)) / 10; 
ystep = ((vp.bottom-vp.top) - (2*h)) / 5; 



j = h; 

randomizeO; 
for(i=0; i<10; ++i) { 

color = random(MaxColors); 

setfillstyle(i-r- 1 , color); 

if (extpoint[i] !=3999) { 
hdifi^2; 

if(finod(i 5 2) = 0) hdifl^-8; 
outtextxy(j,(vp.bottom-vp.top)+hdiflF-(h/2) 3 

point[extpoint[i]] .ptname); 
if(i!=10){ 

bheight = (vp.bottom-vp.top) - h - 1; 

barSdOX^bottom-vptop-h^ 
j+xstep 5 bheight, 1 5, 1); 

} 

j += xstep; 

} 

} 

j = (vp.bottom-vp.top) - h; 
for(i=0; i<ll; ++i) { 

line(20j,513j); 

itoa(i*10,bufferJ0); 

outtextxy(Oj,buffer); 

j -= ystep/2; 

} 

j=0; 

key = get_charO; 
key=toupper(key); 
if(key = 'P') { 

prtstatus=biosprint(2,0,pnum); 
if (prtstatus=0x90) { 

forO=0;j<10;j++){ 
printcrlfO; 

sprintf(str,"%s %#3d", 

point[extpoint[j]].ptname,point[extpoint[j]].premax); 
toprinter(str); 

} 

formfeedO; 

} 

} 

ifgraphic=0; 
backtextO; 

puttext( 1 , 1 , 8 0 , 2 5 , s ave_scr een) ; 

} 



void statisticheading(int col, int row) 

{ 

setcolor(BLUE); 
showline("msg_StatHeading "); 
outtextxy(col*200+52,row* 1 0+3 8,msg_line); 

} 

void statistics(void) 

{ 

char save_screen[25*80*2]; 
char str[50]; 
unsigned char prtstatus; 
struct viewporttype vp; 
int i j; 
int row=0; 
int col=0; 
double mean=0; 
long int meanspoint[100]; 
long int tempmeans; 
long int tempmeanspoint; 
double means[100]; 
double maxmean=0; 
double minmean=0; 
double rismean=0; 
double falmean=0; 
double meandeviation=0; 
double variance=0; 
double stdvariation; 
double diff; 
int key; 

int counter=-l; 
int totalcounter=-l; 
int linecount=l; 
char meanyet=l; 
char lowyet=l; 

gettext(l, 1,80,25, save_screen); 

setgraphmode(g_mode); 

setbkcolor(bkcolor); 

settextjustify(LEFT_TEXT 3 TOP_TEXT); 

settextstyle(TRIPLEX_FONT 3 HORIZ_DIR 3 2); 

showline("msg_Statistics "); 

outtextxy(10 5 5,msgjine); 

settextl(); 

statisticheading(col,row) ; 
for (i=6; Knpoint; i++) { 



if (point[i].premax > 0) { 
counter-H-; 

means[counter] = point[i].premax; 

meanspoint[counter]=i; 

mean = mean+point[i].premax; 

> 

if (counter = 99) break; 

} 

counter-H-; 

if (counter != 0) maxmean=mean/counter; 
for (i=0; i<counter; i-H-) { 

for (j=0; j<counter; j++) { 

if (means[i] > meansjj]) { 

tempmeans=means[i] ; 

tempmeanspoint=meanspoint[i] ; 

means [i] =means [j ] ; 

meanspoint[i] = meanspoint[j]; 

means [j ] =t empmeans ; 

meanspoint[j]=tempmeanspoint; 

} 

} 

} 

for (i=0; i<counter; i++) { 

if ((difi=means[i]-maxmean) > 0) setcolor(RED); 
if (diff < 0) { 

setcolor(YELLOW); 
if (lowyet) { 

if (row != 0) row++; 
if (row = 40) { 
col++; 
row=0; 

statisticheading(col 3 row); 
linecount=l; 

} 

lowyet=0; 

} 

if (diff =0) { 

setcolor(BLUE); 
if (meanyet) { 

if (row != 0) row++; 
if(row==40) { 
col++; 
row=0; 

statisticheading(col,row); 



} 

linecount=l; 

} 

meanyet=0; 

} 

meandeviation : =meandeviation+abs(difi); 

variance=variance+(diff*diff); 

sprintf(str 3 M %#3d %s %#3d %+3.2f", 

linecount,point[meanspoint[i]].ptname, 
point[meanspoint[i]]. premax, diff); 

outtextxy(col*200+20,row* 1 0+50,str); 

row++; 

if (row = 40) { 
col++; 
row=0; 

statisticheading(col,row); 

} 

linecount++; 

} 

mean=0; 

for (i=6; i<npoint; i++) { 

if (pointfi] .premax > 0) { 
totalcounter++; 
mean = mean+point[i] .premin; 

} 

} 

if (totalcounter != -1) minmeaii=mean/(totalcounter+l); 

totalcounter=-l; 

mean=0; 

for (i=6; i<npoint; i-H-) { 

if (pointfi] .premax > 0) { 
totalcounter++; 
mean = mean+point[i].prerise; 

} 

} 

if (totalcounter != -1) rismean=mean/(totalcounter+l); 

totalcounter=-l; 

mean=0; 

for (i=6; i<npoint; i-H-) { 

if (point[i]. premax > 0) { 
totalcounter-H-; 
mean = mean+point[i].prefall; 

}. 

} 

if (totalcounter N -1) falmean=mean/(totalcounter+l); 



meandeviation=meandeviation/(counter- 1 ); 

variance=variaiice/(counter- 1); 

setviewport(400 5 268,639,479 5 1); 

setcolor(BLUE); 

rectangle(0,0,237,209); 

setfiUstyle(SOLID_FE,L 5 RED); 

bar(3,3,234,206); 

showlinenum( n msg_StatSummary 1 00, 1 2 5 1 0); 
setcolor(WHITE); 

showlinenum("msg_StatPoints " ? counter, 3 0,3 2); 

showlinenum("msg_TestedPoints ",totalcounteri-l, 54,44); 
* 

showlinereal( M msg_MAXMean M ,maxmean,94,72); 

showUnereal( M msg_MeanDeviatio ,l 5 meandeviatioii 5 46,84); 

stdvariation=sqrt(variance); 

showlinereal( ,, msg_StdDeviation M 5 stdvariation 5 1 4,96); 
showlinereal( n msg_MAXVariance ",variance,94, 108); 

showlinereal( n msg_MINMean '',minniean,94, 1 60); 
showlinereal("msg_RISMean lf ,rismean,94, 175); 
showlinereal("msg_FALMean " 5 falmean,94,190); 

key = get_char(); 
key= = toupper(key); 
if(key = T l ) { 

prtstatus=biosprint(2,0,pnum); 

if (prtstatus=0x90) { 
printcrlfO; 

sprintf(str,"%#3d %#3d °/o#3d %#3d'\maxmean 5 miimiean ? rismean ? falmean); 

toprinter(str); 

formfeed(); 

} 

} 

ifgraphic=0; 
backtextO; 

puttext ( 1 , 1 , 8 0 , 2 5 , save_screen) ; 

} 

void pointbarsQ 

{ 

int key=0; 

char save_screen[25*80*2]; 
extern void (*helpfunc)0; 
extern void helpO; 
void barsmenuQ; 



barmaxflag=l; 

helpfunc=barsmenu; 

gettext(l , 1 3 80 5 25,save_screen); 

setgraphmode(g_mode); 

setbkcolor(bkcolor); 

labelbarboxO; 

labelbarO; 

showline( n msg_BasePost "); 

outtextxy(72 3 0 3 msg_line); 

last = 40; 

pstart=pointpoint; 

clearbarsO; 

display_pointbarsO; 

pointbarheadingO; 

iftgraph = 0; 

ifgraphic = 1; 

while (key != ESC) { 

if (PORTABLE = KEYPORT) outputholdPortO; 

if (CARD = KEYCARD) outputholdO; 

INPUTO; 

foot=footpedalO; 

if(kbhit0 || foot > 0) { 
if (foot>0) { 

key=foot; 

} 

else { 

key = get_char(); 
key = toupper(key); 

} 

switch(key) { 

case LSWITCH: 
case UP: prevpointO; 

if (pointpoint < pstart+1 || pointpoint > pend) { 
pstart=pointpoint-3 9; 

clearbarsO; 
if(pstart<0) { 

pstart=0; 

pointpoint=0; 

} 

} 

display_pointbars(3; 

break; 
case RSWITCH: 
case DN: nxtpointO; 

if (pointpoint > pstart+39 || pointpoint = 0) { 



pstart = pointpoint; 
clearbarsO; 

} 

display_pointbarsO; 
break; 

case PGUP: pstart=pstart-40; 

if(pstart<0) pstart=0; 
clearbarsO; 
pointpoint=pstart+3 9; 

display_pointbarsO; 
break; 

case PGDN: pstart = pstart+40; 

if (pstart > usepoint+1) pstart=0; 

clearbarsO; 
pointpoint=pstart; 

display_pointbarsO; 
break; 

case 'H 1 : if (Ipointflag) break; 

toggle_outholdO; 

outholdgraphO; 

break; 

case HOME: pointpoint=pstart; 
clearbarsO; 
display_pointbarsO; 
break; 

case END: pointpoint=pend-l; 

clearbarsO; 

display__pointbarsO; 

break; 

case CTRL_HOME: pstart=0; 

pointpoint=0; 
clearbarsO; 
display_pointbarsO; 
break; 

case CTRL_END: pstart=usepoint-40; 

if (pstart <0) pstart-0; 
pointpoint=usepoint- 1 ; 
clearbarsO; 
display_pointbarsO; 
break; 

case 'O 1 : otherpointO; 

clearbarsO; 
pstart=pointpoint; 
display_p ointbar sO ; 
break; 



case 'X 1 : if (barmaxflag) barmaxflag=0; 

else barmaxflag=l; 

clearbarsO; 

display_pointbarsO; 

pointbarheadingO; 

break; 
case '*': if (pointflag) { 

setbase(); 
outholdgraphO; 

} 

else setpostO; 

display_pointbarsO; 

pointbarheadingO; 

break; 
case ESC: break; 
default: break; 

} 

backtextO; 

puttext( 1 , 1 , 80,25, save_screen); 
display_points(); 
iftgraph = 1; 
ifgraphic = 0; 

} 

void jumptopointO 

{ 

long int ij; 
int len; 

jumpname(); 
len=strlen(findname) ; 
if (len=0) return; 
for (i=0; i<npoint; i++) { 

if (strncmp(findname 3 point[i] ,ptnanae 3 len) = 0) break; 

} 

if (i < npoint) { 

if (point[i].ptcode != userptcode) { 
userptcode = point[i].ptcode; 
selectpointsO; 

} 

for (j=0; j<usepoint; j++) if (usept[j] = i) break; 

pointpoint=j; 

pstart=j; 

if(fromkey = , P l ) { 



clear_wind o w(wnd_p oint) ; 
setpointwindowO; 

} 

else displaypointO; 

} 

else makesound(20 5 1 0); 

} 

void setforpointO 

{ 

fromkey='P'; 

tokey^'P 1 ; 

iftgraph=l; 

} 

void pointlistO 

{ 

setforpointO; 
setbaseO; 

setmenuhelp("point n ? 3,l); 

wnd_point = establish_window(0,0,23,79); 

showline("msg_PtTitle "); 

set_title(wnd_point,msg_line); 

setpointwindowO; 

setreadwindowO; 

gosetoutholdO; 

ifgraphic=0; 

} 

void viewpointO 

{ 

int key=0; 
longintj; 

listviewflg=l; 

setmenuhelp("morept M ,4,2); 

wnd_viewpt = establish_window(0,0 3 25,67); 

showline("msg_PointInforma M ); 

set_title(wnd_viewpt 3 msg_line); 

set_colors(wnd_viewpt 5 ALL,BLACK,AQUA,DIM); 

set_colors(wnd_viewpt,ACCENT 3 accentcolor,WHITE 3 BRIGHT); 

display_window(wnd_viewpt); 

pstart=pointpoint; 

while (key !-ESC){ 

if (pstart+22 < usepoint) pend = pstart+22; 



else pend = usepoint; 
showviewO; 
key = get_char(); 
key = toupper(key); 
switch(key) { 

case RSWITCH: 

case DN: pointpoint-H-; 

if (pointpoint > usepoint- 1) { 
pointpoint=0; 
pstart=0; 

clearjwindow(wnd_viewpt); 

} 

if (pointpoint > pstart+21) { 
pstart = pointpoint; 
clear_window(wnd_viewpt) ; 

} 

break; 
case LSWITCH: 
case UP: pointpoint--; 

if (pointpoint < 0) { 

pointpoint=usepoint- 1 ; 
pstart=usepoint-22; 
if (pstart <0) pstart=0; 
} 

if (pointpoint < pstart) { 

pstart=pointpoint-2 1 ; 
clear_window(wnd_viewpt); 
if (pstart <0) { 

pstart=0; 

pointpoint=0; 

} 

} 

break; 

case PGUP: pstart=pstart-22; 

if (pstart <0) pstart=0; 

clear_window(wnd_viewpt); 

pointpoint=pstart+2 1 ; 
• break; 
case PGDN: pstart = pstart+22; 

if (pstart > usepoint) pstart=0; 

clear_window(wnd_viewpt); 

pointpoint=pstart; 

break; 
case '0': otherpoint(); 

pstart=pointpoint; 



break; 
case XT: foothandO; 

pstart=pointpoint; 
break; 

case HOME: pointpoint=pstart; 
break; 

case END: pointpoint=pend-l; 
break; 

case CTRL HOME: pstart=0; 
pointpoint=0; 
break; 

case CTRL_END: pstart=usepoint-22; 
if(pstart<0) pstart=0; 
pointpoint=usepoint- 1 ; 
break; 

case W: display_time(); break; 
case INS: changeptcodeO; 

break; 
case 'S': changepoiatsO; 

setmenuhelp( n morept M ,4,2); 

break; 
default: break; 

} 

} 

delete_window(wnd_viewpt); 

} 

void reviewgraphO 

{ 

struct stat info; 

char save_screen[25*80*2]; 

char string[40]; 

int key=0; 

int i,j, start, expand,oldexpand,spacing; 

extern void (*helpfunc)(); 

extern void helpO; 

int savpremax; 

int savpremin; 

int savprerise; 

int savprefall; 

gettext( 1 , 1 ,80, 25, save_screen); 
setgraphmode(g_mode); 
setbkcolor(EGA_LIGHTGRAY); 
setcolor(DARKGRAY); 
setuserchar size( 1,1,1,1); 



settextstyle(SMALL_FONT 3 HORIZ_DIR,USER_CHAR_SIZE); 

showline("msg_Visits "); 

outtextxy(lcol+ 1 60,445 ; msg_line); 

outtextxy(5, 1 ,wholename); 

labelbarO; 

sprintf(string/'%s^point[usept[pointpoint]].ptnanie); 

outtextxy(5, 1 1. string); 

rectangle(lcol-10 3 14,608,430); 

line(lcol- 10,220,608,220); 

showline( M msg_MMRFDate "); 

sprintf(string,msg_line); 

outtextxy( 1 ,3 0,string); 

if (client.visits > 20) start=clientvisits-20; 

else start=0; 

j=0; 

spacing=(400/(client.visits-start)); 
oldexpand=spacing*j+lcol; 
readpoint (start); 

savpremax=4 1 5-(point[usept[pointpoint]] .premax*4. 0 1 ); 
savpremin-415-(point[usept[pointpoint]].premin*4.01); 
savprerise=415-(point[usept[pointpoint]].prerise*4.01); 
savprefall=415-(point[usept[pointpoint]].prefall*4.01); 
for (i=start; i<client.visits; i++) { 
readpoint (i); 

if(stat(filename,&info) != 0) { 

operationinfo( l, Errorst ,, ,10,5,yeskey); 
break; 

} 

expand=spacing*j+lcol; 
setcolor(DARKGRAY); 
sprintf(string, M %#2d. ",i+l); 
outtextxy(l j *20+40, string); 
setcolor(RED); 

sprintf(string, ,,0 /o#3d M 3 point[usept[pointpoint]].premax); 
outtextxy(20j*20+40, string); 

outtextxy(expand,415-(point[usept[pointpoint]].premax*4.01) ? ,, * n ); 

line(oldexpand,savpremax+7,expand,422-(point[usept[pointpoint]].premax*4.01)); 

setcolor(BLUE); 

sprintf(string, M %#3d n ,point[usept[pointpoint]].premin); 
outtextxy(47j*20+40, string); 

outtextxy(expand,4 1 5-(point[usept[pointpoint]] .premin*4.0 1),"#"); 

line(oldexpand,savpremin+7,expand,422-(point[usept[pointp 

setcolor(MAGENTA); 

sprintf(string ? ,,0 /o#3d l, ,point[usept[pointpoint]].prerise); 
outtextxy(77j*20+40,string); 



outtextxy(expand,4 1 5-(point[usept[pointpoint]] .prerise*4.0 1 ), V); 

line(oldexpand,savprerise+7,expand,422-(po^ 

setcolor(GREEN); 

sprintf (string, "%#3 d^point[usept[pointpoint]] .prefall); 
outtextxy(l 04 j*20+40, string); 

outtextxy(expand ^ 415-(point[usept[pointpoint]].p^efall*4.01) 3 ,, f , ); 

hne(oldexpand,savprefaU+7 3 expand,422-(point^ 

setcolor(DARKGRAY); 

strcpy(string 5 ctime(&info.st_atime)); 

outtextxy(55j*20+50 5 string); 

itoaG+1, string, 10); 

outtextxy(expand,43 5 , string); 

savpremax=4 1 5-(point [usept[pointpoint] ] .premax*4. 0 1 ); 
savpremin=415-(point[usept[pointpoint]].premin*4.01); 
savprerise=415-(point[usept[pointpoint]].prerise*4.01); 
savprefall=4 1 5-(point[usept[pointpoint]] .prefall*4 . 01); 
oldexpand=expand; 

> 

while (key != ESC) key = get_char(); 

settextlO; 

backtext(); 

puttext( 1 , 1 , 80,25, save_screen); 

} 

void reviewvisitsO 

{ 

struct stat info; 
WINDOW *wnd_visit; 
int ij,start,key; 
char datepO]; 
struct savepoint 

{ 

char premax; 
char premin; 
char prerise; 
char prefall; 
char postmax; 
char postmin; 
char postrise; 
char postfall; 

}; 

struct savepoint savept[1200]; 



setmenuhelp( M graphvi",4,2); 



wndjvisit = establish_window(0 5 0 3 25 3 67); 

showline( ,, msg_PointVReview ,, ); 

set_title(wnd_visit 3 msg_line); 

set_colors(wnd_visit 5 ALL 3 BLACK,AQUA,DIM); 

set_colors(wnd_visit 3 ACCENT 5 accentcolor 3 WHITE 3 BRIGHT); 

display jvvindow(wnd_visit); 

wcursor(wnd_visit 5 1 ,0); 

wprintf(wnd_visit, " %s ,, 3 point[usept[pointpoint]].ptname); 
unspace_nameO; 

wprintf(wnd_visit 5 " %s n 3 wholename); 

wcursor(wnd_visit,7,2); 

showUne('Wg_DateMME)RF "); 

wprintf(wnd_visit 3 msg_line); 

if (client visits > 20) start=client.visits-20; 

else start=0; 

for (i=0; Knpoint; i++) { 

savept [i] .premax=point[i] .premax; 
savept[i] .premin=point[i] .premia; 
savept[i] .prerise=point[i] .prerise; 
savept[i] .prefall=point[i] .prefall; 
savept[i].postmax=point[i] .premax; 
savept[i].postmia=point[i].premin; 
savept[i].postrise=point[i]. prerise; 
savept[i].postfall=point[i] .prefall; 

} 

j=0; 

for (i=start; i<client.visits; i++) { 
readpoint(i); 

if(stat(filename ? &info) != 0) { 

operationinfo("errorst" 3 1 0 3 5 3 yeskey); 
break; 

} 

wcursor(wnd_visit, 4 J+3 ) ; 
wprintf(wnd_visit,"%#2d. ",i+l); 
strcpy(date, ctime(&info , st_atime)) ; 
date[24] = 0; 
date[25] = 0; 
date[26] = 0; 

wprintf(wnd_visit,"%s ",date); 
wprintf(wnd_visit,"%#3d %#3d %#3d %#3d %#3d", 
point[usept[pointpoint]] .premax,point[usept[pointpoint]] .premin, 
point[usept[pointpoint]] .premax-point[usept[pointpoint]] .premin, 
point[usept[pointpoint]].prerise,point[usept[pointpoint]]. prefall); 

} 



while (key != ESC) { 

key = get_char(); 
key = toupper(key); 
switch(key) { 

case 'G': if (client.visits > 0) reviewgraphO; break; 

default: break; 

} 

} 

for (i=0; i<npoint; i++) { 

point[i].premax=savept[i].premax; 
pointfi] .premin=savept [i] .premin; 
point[i] .prerise=savept[i] .prerise; 
point[i] . prefall=savept[i] .prefall; 
pointfi]. premax=savept[i].postmax; 
pointfi]. premin=savept[i].postmin; 
pointfi]. prerise=savept[i].postrise; 
pointfi] .prefall=savept[i] .postfall; 

delete_window(wnd_visit); 
void showvolts(void) 

{ 

float number; 

outportb(SETVOLT,voltage); 
number=voltage; 

wprintf(wnd_volts,"\n %#1 .2f ' .number*. 01 9608); 
} 

void tellvolts(void) 

{ 

wnd_volts = establish_window(3 2,24,3,9); 

showline( n msg_Voltage "); 

set_title(wnd_volts,msg_line); 

set_colors(wnd_volts 5 ALL,WHITE 3 BLACK 3 DIM); 

display_window(wnd_volts); 

showvoltsO; 

} 

void pointsO 

{ 

int key=0; 
char washold; 
pstart=pointpoint; 
pointlistQ; 



if (Iboard) tellvoltsO; 
while (key != ESC) { 
cursoroffO; 

if (PORTABLE = KEYPORT) outputholdPortO; 

if (CARD == KEYCARD) outputholdO; 

INPUTO; 

foot = footpedalO; 

if (kbhitO || foot>0) { 

if(foot>0)key=foot; 

else { 

key = getcharO; 
key = toupper(key); 

} 

switch(key) { 

case UP: if (pointpoint < pstart+3) 

pointpoint = pointpoint+pend-pstart-3 ; 
else pointpoint = pointpoint-3; 

display_pointsO; 
break; 

case DN: if (pointpoint > pend-4) 

pointpoint = pointpoint+pstart-pend+3; 
else pointpoint = pointpoint+3; 

display_pointsO; 
break; 
case LSWITCH: 
caseBS: prevpointO; 

if (pointpoint < pstart) { 

pstart=pointpoint-53 ; 
if (pstart <0) { 
pstart=0; 
pointpoint=0; 

clear_window(wndjp oint) ; 

} 

} 

if (pointpoint = usepoint-1) pstart==pointpoint-53; 

setpointwindowO; 
break; 
case RSWITCH: 
caseFWD: nxtpointO; 

if (pointpoint > pend-1) { 
pstart = pointpoint; 
clear_window(wnd joint); 

if (pointpoint = 0) pstart = 0; 
setpointwindowQ; 



break; 

case PGUP: pstart=pstart-numpts; 

if (pstart<0) pstart=0; 
pointpoint=pstart-f-53 ; 
clear_window(wnd_point); 

setpointwindowO; 
break; 

case PGDN: pstart = pstart+numpts; 

if (pstart > usepoint+1) pstart=0; 

pointpoint=pstart; 

clear_window(wnd_p oint) ; 

setpointwindowO; 

break; 

case 'V: hide_window(wnd_outhold); 
outholdflag=0; 

viewholdO; 
break; 

case W: display_timeO; break; 
case F9: setvolumeO; break; 
case T:toggle_infoflagO; 

getpoint(usept[pointpoint]); 

showinfopointO; 
break; 

case M': viewpointO; 

listviewflg=0; 
pstart=pointpoint; 
clear_window(wnd_point); 
setpointwindowQ; 

break; 

case DEL: clear_allO; 

break; 

case ')': zeropoint(usept[pointpoint]); 

writeptread(pointpoint); 

display_pointsO; 
break; 

case ENTER: washold=outholdflag; 

timegraphO; 

setpointwindowO; 

if (outholdflag) outholdO; 

else if (washold) delete_window(wnd_outhold); 

helpfunc=help; 

break; 
case 'F: vbarsO; 

setpointwindowO; 

break; 



case ! Q': statisticsO; 

setpointwindowO; 
break; 

case 'B': pointbarsO; 

pstart=pointpoint; 

clear_wind ow(wnd_p oint) ; 

setpointwindowO; 

helpfunc=help; 

break; 

case 'O 1 : otherpointQ; 

pstart=pointpoint; 
clear_window(wnd_point); 
setpointwindowO; 
break; 

case TP: foothandO; 

pstart=pointpoint; 
clear_window(wnd_p oint) ; 

setpointwindowO; 
break; 

case CTRL_HOME: pstart=0; 

pointpoint=0; 

display_pointsO; 
break; 

case CTRLJEND: pstart = usepoint-numpts; 
if (pstart<0) pstart=0; 
pointpoint=usepoint- 1 ; 

display_pointsO; 
break; 

case HOME: pointpoint=pstart; 

display_pointsO; 
break; 

case END: pointpoint=pend-l; 

displayjointsO; 
break; 

case 'H': if (pointflag) holdboxO; 
break; 

case 'K': referenceO; break; 
case '*': if (pointflag) setbaseO; 

else setpostO; 

outholdO; 

setpointwindowO; 

break; 
case 'S': changepointsO; 

break; 
case 'J': jumptopointO; 



break; . 
case ": if (meridianflg) { 

meridianflg=0; 
selectpointsO; 
poiatpoint=savepoint; 

} 

else { 

meridianflg=l; 
meridianO; 

} 

clear jwindow(wndj) oint) ; 

setpointwindowO; 
break; 

case 'C: close_all(); 

showclientO; 

pointlistQ; 

break; 

case *N I : notepadO; break; 

case 'R': reviewvisitsQ; break; 

case ALT_Z: if (ptarrowcountO != gcount) { 

point[usept[pointpoint]] . 

display_pointsO; 

writeptread(pointpoint); 

} 

else twobellsO; 

break; 

case ALT_X: point[usept[poiatpoint]]. arrow = ' '; 

display_points(); 

writeptread(pointpoint); 

break; 

case ALT Y: clearptarrowQ; 

display_pointsO; 
break; 
case ALT_G: growth(); 

break; 

case ALTR: 

if (PORTABLE=KEYPORT) 

{ 

putchar(BELL); 

ClearDCMO; 

SetupDCMO; 

putchar(BELL); 

putchar(BELL); 

} 

break; 



case F10: if (board) break; 

if (CARD != 0x4343) break; 

programpcbO; 
helpfunc=help; 

showvoltsO; 
break; 

caseF8: soundpanelO; 

break; 
case 'P':pnum=0; 

printingO; break; 
case ';':pnum=l; 

printingO; break; 
default: break; 

> 

} 

setmenuhelp("point ",3,1); 

} 

outflag=0; 

outholdflag=0; 

close_allO; 

} 

/********* MOVE POINTER ON SCREEN */ 

void writemainpoint(long int position) 

{ 

int fhandle; 
long int poslong; 

if ((fhandle=open("C:\\QA4\\LPOINT\\POINT. 1 ", 

0_WRONLY|0_CREAT|0_BINARY,S_IREAD|S_IWRITE)) 
operationinfo("errorop", 1 0,5,yeskey); 
exit(l); 
} 

poslong=ptlen *po sition; 

lseek(fhandle,poslong, SEEK_CUR); 

if (write(fhandle,diskbuffer,ptlen) = -1) { 

operationinfo("errorwt", 1 0,5,yeskey); 

exit(l); 

} 

close(fhandle); 

} 

void writepoint(long int position) 

{ 



int fhandle; 
long int poslong; 

if((fhandle=open("C:\\WORK\\POINT.DAT" 3 

0_WRONLY|0_CREAT|0_BINARY ; S_IREAD|S_rWRITE)) 
operationinfo("errorop ", 1 0, 5,yeskey); 
exit(l); 

} 

poslong=ptlen*position; 

lseek(fhandle,poslong, SEEK_CUR); 

if (write(fhandle,diskbuffer,ptlen) = -1) { 

operationinfo("errorwt",10,5,yeskey); 

exit(l); 

} 

close(fhandle); 

} 

void movepointO 

{ 

int key=0; 
beepO; 

while (key != ESC) { 
key=get_charO; 
key=toupper(key); 
if (key = ESC) break; 
switch(key) { 

case BS: xpos— ; break; 

case FWD: xpos++; break; 

case DN: ypos++; break; 

case UP: ypos~; break; 

case 'D': xpos = xpos- 10; break; 

case 'P: xpos = xpos+10; break; 

case 'C: ypos = ypos+10; break; 

case 'R 1 : ypos = ypos- 10; break; 

case T: xpos=xpos & OxOFEF; break; 

case 'B': xpos=xpos | 0x9000; break; 

default: break; 

} 

diskbufFer[62] = xpos/256; 
diskbuflFer[63] = xpos; 
diskbuflfer[64] = ypos/256; 
diskbuflFer[65] = ypos; 
writemainpoint(usept[pointpoint]); 
writepoint(usept[pointpoint]); 
displaypointgraphQ; 



} 

beepO; 
} 



/* START Module for LISTEN Program */ 
/* Copyright 1992-9 by James Hoyt Clark */ 

#include <time.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <dos.h> 
#include <graphics.h> 
ffinclude <string.h> 
#include <conio.h> 
^include <math.h> 
#include "twindow.h" 
#include "keys.h" 
#include "vars.h" 
include M pcl4c.h" 

#define xbar 290 

int nCounter = 0; 

int nCount=0; 

int oldmax = 0; 

int oldmin = 0; 

int oldris = 0; 

int oldfal = 0; 

unsigned char cPotNum[3]; 

extern int nSerFlag; 
extern char msg_line[80]; 
//extern unsigned _stklen = 8000; 
extern char name[3 1 ] ; 
extern char id[8]; 
extern unsigned char numO; 
extern unsigned char numl; 
extern unsigned char num2; 
extern unsigned char num3 ; 
extern unsigned char num4; 
extern unsigned char num5; 
extern unsigned char num6; 
extern unsigned char num7; 
extern unsigned char num8; 
extern unsigned char num9; 
extern char biblio; 
extern void (*helpfunc)0; 
extern void help(); 
extern char findname[3 1]; 



extern void graphmenupointO; 
extern int timerO; 
extern int wavepoint; 
extern float freqvalue; 
extern int CARD; 
extern int PORTABLE; 
extern int SerPort; 
extern int TICS; 
extern const DELAY; 
extern int nBaud; 
extern int nDTime; 

void MySioPutc(int cValue) 

{ 

if (cValue == FREEZE || cValue = SWITCHOFFAA) cValue-; 
SioPutc(SerPort,cValue); 

} 

// for startup test 

int UnFreezeTest(void) 

{ 

int nRead=0; 
int i=0; 

cursor(0,10); 
printf("10.Get M ); 

SioError(SioGetc(SerPort,TICS)); 
nRead = SioGetc(SerPort,TICS); 
cursor(0,ll); 

printf(" 1 1 .960 %#4d ",nRead); 

SioError(SioBaud(SerPort,Baud9600)); 

nBaud = Baud9600; 

cursor(0,12); 

printf("12.Get"); 

SioError(SioGetc(SerPort,TICS)); 
nRead = SioGetc(SerPort,TICS); 
cursor(0,13); 

printf("13.Ul:%#4d Baud:%#3d",nRead, nBaud); 
// if (nRead > 4 && nRead < 101) return nRead; 
cursor(0,14); 
printf("14.Put "); 
DoONO; 
while (1) 

{ 

cursor(0,15); 
printf(*'15.Get"); 



SioError(SioGetc(SerPort,TICS)); 
nRead = SioGetc(SerPort,TICS); 
printf("Read:%#4d ",nRead); 
if (nRead = 0) break; 

if (nRead > 4 && nRead < 101) 
{ 

cursor(0,16); 

printf( ,, 16.Put%#4d H ,nRead); 
return nRead; 

> 

if (nRead = LEFT || nRead = RIGHT) return nRead; 
cursor(0,17); 
if (nRead = FREEZE) 
{ 

printf("17.Put%#4d ",nRead); 
// DoOFFO; 

} 

if (kbhitO) break; 
cursor(0,18); 

printf("18.Wu:%#4d %#4d",i, nRead); 
} 

nRead = SioGetc(SerPort,TICS); 
cursor(0,19); 

printf(" 19.U2:%#4d",nRead); 
return nRead; 



int FreezeTest(void) 

{ 

int nRead; 
int nlx=0; 

cursor(40,10); 

printf("10.Get "); 

SioError(SioGetc(SerPGrt,TICS)); 

nRead = SioGetc(SerPort,TICS); 

cursor(40,ll); 

printf(" 1 1 .Fl :%#4d Baud:%#3d",nRead,nBaud); 
if (nRead) // zero go ahead 
{ 

if (nRead = FREEZE) // if already froze, unfreeze 

{ 

cursor(40,12); 

printf("12.Put"); 

DoONQ; 



nRead = 0; 

} 

else return 0; // busy with reading or footpedal 
cursor(40,13); 

printf("13.Put%#4d ",nRead); 
DoOFFTestO; 

while(l) // wait for port to become FREEZE 
{ 

cursor(40,14); 

printf("14.Get%#4d ",nlx); 

nRead = SioGetc(SerPort,TICS); 

if (nRead < 0) SioError(SioGetc(SerPort,TICS)); 

if (nRead = FREEZE) 

{ 

cursor(70,14); 

printf("AIready"); 

break; 

} 

if (nRead > 4 && nRead <i01) 
{ 

UnFreezeTestO; 
return 0; . 

if (nRead == LEFT || nRead = RIGHT) 

{ 

UnFreezeTestO; 
return 0; 

} 

nlx++; 

if(nlx = 60) 
{ 

cursor(40,15); 
nCounter-H-; 

printf( n 15.PutON%#7d H ,nCounter); 
break; 

} 

cursor(40,16); 

printf("16.Wf:%#7d Read:%#4d FRE:%#4d",nIx,nRead, FREEZE); 
if (kbhitO) break; 

} 

cursor(40,17); 
printf("17.115 "); 

SioError(SioBaud(SerPort,Baudl 1 5200)); 
nBaud = Baudl 15200; 



cursor(40,18); 

printf(" 1 8.F2:%#4d Baud:%#3d",nRead,nBaud); 
return 1; 



int UnFreeze(void) 
{ 

int nRead; 
int i=0; 

DoONO; 
while (1) 

{ 

nRead = SioGetc(SerPort,TICS); 

if (nRead = 0) break; 

if (nRead > 4 && nRead < 101) return 0; 

if (nRead = LEFT || nRead == RIGHT) return 0; 

i++; 

if (i > 160) 
{ 

DoONO; 

i=0; 
} 

} 

return nRead; 

} 

int Freeze(void) 

{ 

int nRead; 
int nlx=0; 

nRead = SioGetc(SerPort 3 TICS); 

if (nRead) // zero go ahead 

{ 

if (nRead = FREEZE) UnFreezeO; 

return 0; // busy with reading or footpedal 

} 

DoOFFO; 
// nCount++; 
// cursor(60,10); 
// printf("OFF %#5d",nCount); 

while(l) // wait for port to become FREEZE 
{ 

nRead = SioGetc(SerPort,TICS); 
if (nRead = FREEZE) break; 
nlx++; 



if(nlx>80) 
{ 

UnFreezeO; 
return 0; 

} 

SioBaud(SerPort,Baudl 1 5200); 
// cursor(50,10); 
// printf("1152"); 

return 1; 

} 

/* Output */ 

void MySound(char cFreq) 
{ 

sound(cFreq*10); 
delay(lO); 

} 

void potencynum(void) 

{ 

int i; 

unsigned char bPotNum[6]; 
pot[dilindex].name[7] =0; 
for (i=0; i<6; i++) 
{ 

if (pot[dilindex].num[i] < 'A') 
{ 

if (pot[dilindex] .num[i] < '0') bPotNum[i] = 0; 
else bPotNum[i] = pot[dilindex].num[i]-48; 

} 

else bPotNum[i] = pot[dilindex].num[i]-87; 

} 

cPotNum[0] = (bPotNum[0] « 4) | bPotNump]; 
cPotNumfl] = (bPotNum[2] « 4) | bPotNum[3]; 
cPotNum[2] = (bPotNum[4] « 4) | bPotNum[5]; 

} 

void outputcode(char cNumberp], unsigned char nO, unsigned char nl 5 unsigned char n2 5 
unsigned char n3, unsigned char n4, unsigned char n5, unsigned char n6 5 
unsigned char n7, unsigned char n8, unsigned char n9) 

{ 

int i; 

if (CARD = KEYCARD) 



{ // DCM CARD 

shiftpot(cNumber[0]); 

shiftpot(cNumber[ 1 ]); 

shiftpot(cNumber[2]); 

shiftcode(nO); 

shiftcode(nl); 

shiftcode(n2); 

shiftcode(n3); 

shiftcode(n4); 

shiftcode(n5); 

shiftcode(n6); 

shiftcode(n7); 

shiftcode(n8); 

shiftcode(n9); 

if (clicks) 

{ 

/* cursor(45,5); 

printf( n 6>0:%d l:%d 2:%d\ 

cNumber[0] ? cNumber[l] 5 cNumber[2]); 
cursor(45,6); 

printf("»0:%d l:%d 2:%d 3:%d 4:%d 5:%d 6:%d 7:%d 8:%d 9:%d", 
n0 3 nl,n2 ? n3 ? n4 5 n5 ? n6 ? n7 ? n8 3 n9);*/ 

onvolumeO; 

xsetpitch(nO); 

xsetpitch(nl); 

xsetpitch(n2); 

xsetpitch(n3); 

xsetpitch(n4); 

xsetpitch(n5); 

xsetpitch(n6); 

xsetpitch(n7); 

xsetpitch(n8); 

xsetpitch(n9); 

} 

} 

if (PORTABLE = KEYPORT) 
{//DCM PORTABLE 
MySioPutc(cNumber[0]); 
MySioPutc(cNumber[ 1 ]); 
MySioPutc(cNumber[2]); 
MySioPutc(nO); 
MySioPutc(nl); 
MySioPutc(n2); 
MySioPutc(n3); 
MySioPutc(n4); 



MySioPutc(n5); 
MySioPutc(n6); 
MySioPutc(n7); 
MySioPutc(n8); 
MySioPutc(n9); 
if (clicks) 
{ 

MySound(nO); 
MySound(nl); 
MySound(n2); 
MySound(n3); 
MySound(n4); 
MySound(nS); 
MySound(n6); 
MySound(n7); 
MySound(n8); 
MySound(n9); 
nosoundO; 

> 

} 

void outlhold(int j) 

{ 

if (holdO].tag) { 

outputcode(hold[j] .potn^ 

hold0].num4,hold0].niim5 5 hold0].num6 5 hold[]].num7 ? 
holdQl.numSjholdUJ.numP); 

} 

else ofivolumeO; 

} 

void xchangecolorO 

{ 

basecolor=LIGHTRED; 

postcolor=LIGHTBLUE; 

if (pointcolor = RED) pointcolor=LIGHTRED; 

else pointcolor=LIGHTBLUE; 

} 

void outputhold() 

{ 

intj; 

if (outholdflag) for 0=0; j<h+2; j++) outlholdG); 
} 



void outputholdPortO 

{ 

intj; 

if(outholdflag) 
{ 

if (FreezeO) 

{ 

for 0=0; j<h+2; j++) outlhold(j); 

UnFreezeO; 

} 

} 

} 

void OutputCapsuleO 

{ 

int i=0; 
intj; 

int nRead; 
int nKey; 

double dRemainder; 
char buffer[2000]; 
for G=0;j<h+2;j++) 
{ 

if G>48) break; // limit to 50 dilution and 50 product 
bufferfi] = hold[j].potnum[0]; 

buffer [i] = hold[j].potnum[l]; 

buffer[i] = hold[j].potnum[2]; 

buffer [i] = hold[j].num0; 

buffer[i] = hold[j].numl; 

i+Hh; 

bufferfi] = hold[j].num2; 

buffer[i] = hold[j].num3; 
i++; 

buffer[i] = hold[j].num4; 

i++; 

buffer[i] = hold[j].num5; 
i++; 

buffer[i] = hold[j].num6; 
i++; 

buffer[i] = hold[j].num7; 



bufferfi] = hold[j].num8; 

bufFer[i] = hold[j].num9; 

i++; 

// cursor(0,10); 
// printf( M 10.%#4d%#4d ,, j,i); 
} 

while(i<2000) // fill remaining with zeros 

{ 

buffer[i] = 0; 

i++; 

} 

//cursor(0,ll); 
//printf("ll.Put "); 

SioPutc(SerPort,0xAE); // ready for capsule 

delay(lO); 

// output 50 bytes 

nRead=0; 

for (i=0; i<2000; i++) 
{ 

// cursor(0,12); 

// printf(" 12.Put %#4d %#2d",i,buffer[i]); 
SioPutc(SerPort,buffer[i]); 
dRemainder = finod(i+l,50); // do batches of 50 
if (! dRemainder && i) 



while (1) 

{ 

nRead = SioGetc(SerPort,TICS); 



if (nRead = OxAC) break; 
} 

while (1) 
{ 

nRead = SioGetc(SerPort,TICS); 
cursor(50,23); 

if (i) printf("Percent:%#4d",(i/20)+l); 
if (nRead = OxAD) break; // end wait 

} 

clickO; 

} 



// 
// 



cursor(0,13); 
printf("13.i: %#4d",i); 



// 
// 



cursor(0,15); 

printf(" 1 5 .Read:%#4d",nRead); 



} 

} 



void outfl(int j) 

{ 

if (filter l[j].tag) { 

outputcode(filterl|j].potnum 5 filterl|j].numO J filterl(j].numl,fUterl[j].num2, 
filter l[j].num3,filterl fj]num4,filterl [j].num5,filterl [j].num6, 
filterl [j].num7,filterl [j].num8,filterl (j].num9); 

} 

else ofivolumeO; 

} 

void outputflO 

{ 

intj; 

if (filterlflag) for 0=0; j<fcntl+2; j++) outfl(j); 
} 

void outf2(int j) 

{ 

int mask; 

if (filter2[j].tag) { 

outputcode(filter2|j].potnum,filter20].numO,filter2|j].numl,filter2[i].nun^ 
filter2[j] .num3 ,filter2[j] .num4,filter20] .nnm5,filter2[j] .num6, 
filter20].num7 ; filter2[j].num8,filter20].num9); 

} 

else ofivolumeO; 
void outputf20 

{ 

intj; 

if (filter2flag) for (j=0; j<fcnt2+2; j++) outf2(j); 
} 

void gosetfilterlO 

{ 

wnd_outfl = establish_window(55 3 15 3 3 ? 10); 
set_colors(wnd_outfl ? ALL ? BROWN ; BLACK,DIM); 
showline("msg_Filterl "); 
set_title(wnd_outfl 5 msg_line); 

} 



void outfitter 10 



{ 

delete_window(wnd_outfl ) ; 

gosetfilterlO; 

countfltagsO; 

display_window(wnd_outfl ); 

if (filterlflag) wprint^wnd^utfl,'' %#2d %#2d'',fcntl+l,nfltags); 
else hide_wiiidow(wnd_outfl); 

} 

void toggle_filterlO 

{ 

if (fcntl = -1) return; 
else { 

if (filterlflag) filter lflag=0; 
else filter lflag=l; 

} 

} 

void gosetfilter2Q 

{ 

wnd_outf2 = establish_window(55,18,3,10); 

set_colors(wnd_outf2,ALL,BROWN,BLACK,DIM); 
showline("msg_Filter2 "); 
set_title(wnd_outf2,msg_line); 

} 

void outfilter20 

{ 

delete_window(wnd_outf2); 

gosetfilter2(); 

countf2tags0; 

display_window(wnd_outfi2); 

if (filter2flag) wprintf(wnd_oxitf2 ? M %#2d %#2d M 3 fcnt2+l 3 nf2tags); 
else hide_window(wnd_outf2); 

} 

void toggle_filter20 

{ 

if (fcnt2 = -1) return; 
else { 

if (filter2flag) filter2flag=0; 
elsefilter2flag=l; 

} 

} 
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void zapperserialO 
{ 

WINDOW *wnd_minute; 

int saveflag; 

int minutes; 

clock_t tStart; 

saveflag=outholdflag; 

outholdflag=l; 

wnd_minute = estabUsh_window(3, 12,3,21); 

set_colors(wnd_minute J ALL,BROWN,AQUA,BRIGHT); 

set_colors(wnd_minute,ACCENT,WfflTE,BLACK,DIM); 

display_window(wnd_minute); 

showline^'msgJEnterMinutes"); 

wprintf(wnd_minute,msg_line); 

minutes=get__charO; 
minutes=minutes-0x3 0; 
tStart = clockO; 

if (minutes > 0 && minutes < 10) { 

wprintf(wnd_minute, M \n %d n ,minutes); 
showline("msg_Minutes "); 
wprintf(wnd_minute,msg_line); 
while (IkbhitO) { 

if (PORTABLE = KEYPORT) outputholdPortO; 

if (CARD = KEYCARD) outputholdO; 

if (clockO-tStaxt > minutes* 1 092) break; 

} 

} 

outholdflag=saveflag; 

delete_window(wnd_minute); 

beepO; 

} 

void gosetoutholdO 

{ 

if (fromkey=='P') { 

wnd_outhold = establish_window(33,23,3,10); 
set_colors(wnd_outhold, ALL, postcolor, WHITE, DIM); 
set_colors(wnd_outhold, ACCENT, WHITE, BLACK, DIM); 

} 

else { 

wnd_outhold = establish_window(44,15,3,10); 
set_colors(wnd_outhold, ALL, letterl color, WHITE, DIM); 
set_colors(wnd_outhold, ACCENT, accentcolor, BLACK, DIM); 

} 

showline("msg_HoldTag "); 
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set_title(wnd_outhold ? msg_line); 

> 

void outholdO 

{ 

delete_window(wnd_outhold); 

gosetoutholdO; 

counttagsO; 

display jwindow(wnd_outhold); 

if (outholdflag) wprintf(wnd_outhold s n %#3d %#3d" 5 h+l 5 ntags); 
else hide_window(wnd_outhold); 

} 

void toggle_outhold() 

{ 

if (h = -1) return; 
else { 

if (outholdflag) outholdflag=0; 
else outholdflag=l; 

} 

} 

void holdholdoneO 

{ 

++h; 

str cpy (hold [h] . name, outname) ; 

strcpy(hold[h] .id,outid); 

strncpy(hold[h] .potency,pot[dilindex] .name, 8); 

hold[h].potnum[0] = cPotNum[0]; 
hold[h].potnum[l] = cPotNum[l]; 
hold[h].potnum[2] = cPotNum[2]; 
hold[h].numO = outnumO; 
hold[h].numl =outnuml; 
hold[h].num2 = outnum2; 
hold[h].num3 = outnum3; 
hold[h].num4 = outnum4; 
hold[h].num5 = outnumS; 
hold[h].num6 = outnum6; 
hold[h].num7 = outnum7; 
hold[h].num8 = outnum8; 
hold[h].num9 = outnum9; 
hold [h]. max = max; 
hold[h].min = min; 
hold[h].rise = rise; 
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hold[h].fall = fall; 
hold[h].tag = 1; 
writeholdfileO; 
twobellsO; 
} 

void holdonegraphO 

{ 

if(fromkey = T) { 

if(h = nhold) { 

beepO; 
return; 

} 

else holdholdoneO; 

void holdoneO 
{ 

if (outid[0] ===••) return; 
delete_window(wnd_tellhold); 
wnd_tellhold = estabUsh_window(41, 9,3,36); 
showline("msg_PlacedinHold"); 
set_title(wnd_tellhold,msg_line); 

set_colors(wndJellhold,ALL,letter3color,WHITE,DIM); 

display_window(wnd_tellhold); 

if(h = nhold){ 

showline("msg_FULL "); 

wprintf(wnd_tellhold,msg_line); 

twobellsO; 

} 

else { 

holdholdoneO; 

wprintf(wnd_tellhold, "%#d. %s",h+l ,outname); 

if (outholdflag) outholdO; 

} 

} 

void holdboxO 

{ 

if (h<0) return; 
toggle_outhold(); . 
outholdO; 
} 



void flboxO 

{ . 

if (fcntKO) return; 
toggle_filterl(); 
outfitter 10; 

} 

void f2box0 
{ 

if (fcnt2<0) return; 

toggle_filter20; 

outfilter20; 

} 

void clearholdboxO 

{ 

setviewport(0,0, 639,479, 1); 

rectangle(440,452,583,465); 

setviewport(441,453,582,464, 1); 

clearviewportO; 

} 

void outholdgraphO 

{ 

char string[20]; 

clearholdboxO; 

counttagsO; 

setcolor(MAGENTA); 

sho wline( " msg_HoldnumTagnu " ) ; 

sprintf(string ? msg_line,h+l ,ntags); 

if (outholdflag) outtextxy(4 ? 2,stiing); 

} 

/* INPUT and READING DISPLAY */ 

void display_INPUTtext() 

{ 

getinputO; 

if ((reading > 100) || (reading < 1) || InSerFlag) return; 
wcursor(wnd_reading ? 0, 0) ; 
wprintf(wnd_reading 3 n %#3d" ? reading); 

} 



void clearBARO 
{ 



setviewport(3 0 1 , 5,605,420, 1); 
if (iftgraph) setcolor(BLACK); 
else setcolor(bkcolor); 

for (by = 15; by < yref; by++) line(xbar,by,xbar+8,by); 
} 

void BARandGRAPHO 
{ 

char string[4]; 
unsigned int biginput; 
int i; 

getinputO; 

if ((reading > 100) || (reading < 0) || InSerFlag) return; 

biginput=input*graphscale; 

if (iftgraph) setcolor(WHITE); 

else setcolor(RED); 

setviewport(590,430,639,470,l); 

if (biginput != lastinput) clearviewportO; 

settextstyle(TRIPLEX_FONT 3 HORIZ_DIR,2); 

settextjustify^EFT^TEXT^OP^EXT); 

sprintf(string ? n %#3d M J reading); 

outtextxy(0, 0, string) ; 

settextlO; 

setviewport(301,5,605,420,l); 

setcolor(lowcolor); 

if (biginput >= lastinput) { 

for (by = yref-lastinput; by > yref-biginput; by--) { 

if (by < yref-(readinghi*4.01)) setcolor(normcolor); 

if (by < yref-(readinglow*4.01)) setcolor(hicolor); 

line(xbar,by,xbar+20,by); 

} 

} 

else { 

setcolor(bkcolor); 

for (by = yref-lastinput; by < yref-biginput; by++) 
line(xbar+9 3 by 5 xbar+20 3 by); 

} 

if (iftgraph) { 

if(tx0<287-rate) { 

if (cleargraphflag) { 

setcolor(bkcolor); 

setviewport(txl+302 J 5 3 txl+rate+302 ? 420,l); 
clearviewportO; 

} 



setcolor(addcolor); 
setviewport(3 0 1 , 5, 5 8 8 ,420, 1 ); 
tyl = yref-biginput; 
txl = txl + rate; 
Iine(tx0,ty0,txl,tyl); 
tx0 = txl; 
ty0 = tyl; 
if(tx0>287) { 

setcolor(BLACK); 

if(sillyflag)line(l,0,l,415); 

else clearviewportO; 
txO = 1; 
txl = 1; 

if (Icleargraphflag) { 
addcolor++; 

if (addcolor > 15) addcolor=l; 

} 

} 

} 

lastinput=biginput; 
setviewport(0, 0,639,479,1); 
setcolor(pointcolor); 

} 

void markline(int color) 

{ 

setcolor(color); 
setviewport(301,5,581,420,l); 
Iine(tx0,ty0,tx0,ty0- 1 0); 
setviewport(0,0,63 9,479, 1); 

} 

void INPUT(void) 

{ 

char getout; 

char string[80]; 

clockj; tStart,end; 

long utim,dtim,levltim,lev2tim; 

int gowave=0; 

int savewavepoint; 

int count=0; 

char countflag=0; 

getinputO; 

if ((reading > 4) && (reading < 101) && nSerFlag) { 



max=0; 

min=100; 

if (wavepoint) { 

getselectwaveO; 

gowave=wavepoint; 

} 

if (gowave) { /* not DC line */ 
if (ifgraphic) clearBARO; 
else clear jwindow(wnd_reading); 
getout=0; 

while(getout=0) { 

if (ifgraphic) BARandGRAPHO; 

else display_INPUTtextO; 

if ((reading > 100) || (reading < 1)) 

{ 

reading = 0; 

break;// return; // look for big number 

} 

if (max < reading) max=reading; 
if (min > reading) min=reading; 
if (reading > (max+min)/2) { 
if (countflag) { 

count-H-; 

countflag=0; 

} 

} 

if (reading < (max+min)/2) { 
if (countflag = 0) { 
countflag=l; 

} 

> 

if (count > 2) break; 
if (kbhitO) break; 
} 

beepO; 

if (iftgraph && ifgraphic) markline(LIGHTBLUE); 

delay(500); 

fall=0; 

rise=0; 

savewavepoiat=wavepoint; 
dclineO; 

wavepoint=savewavepoint; 
} 

else { /* DC line */ 

if (pointfindflg) onvolumeQ; 



if (ifgraphic) clearBARO; 

else clear_window(wnd_reading); 

lastreading=0; 

getout=0; 

lastinput=0; 

tStart = clockO; 

lev2tim=tStart; 

levltim=tStart; 

while(getout=0) { 

if (ifgraphic) BARandGRAPHO; 

else display_INPUTtextO; 

if ((reading > 100) || (reading < 0)) return; // look for big number reading 

if (reading < 6) reading = 0; 

if (reading <= lastreading+1) levltim=clock(); 

else lev2tim=clock(); 

if (reading < max || clock()-tStart > timeout* 5.0 
||levltim-lev2tim> 10) { 
getout=2; 
break; 

} 

if (lastreading-reading > 3) { 
getout=l; 
break; 

} 

lastreading=reading; 

if (max < reading) max=reading; 

} 

if(getout = 2) 

if (iftgraph && ifgraphic) markline(LIGHTRED); 
if (lastreading > reading+10) { 

getout=0; 

lastreading=max; 

} 

end=clock(); 

utim=end-tStart; 

tStart=clockO; 

lev2tim=tStart; 

levltim=tStart; 

while(getout>0) { 

if (ifgraphic) BARandGRAPHO; 

else display_INPUTtextO; 

if ((reading > 100) || (reading < 1)) 

{ 

reading = 0; 



break;//return; //?? 
} 

if (reading < 6) reading = 0; 

if (lastreading-reading > 10) break; 

if (reading >- lastreading) levltim=clock(); 

else lev2tim=clock(); 

if (levltim-lev2tim > 75) break; 

dtim=clockO; 

if (dtim-tStart > timeout* 1.8) break; 
if (reading > max) max=reading; 
lastreading = reading; 

min=lastreading; 

end=clock(); 

beepO; 

if (iftgraph && ifgraphic) markline(LIGHTBLUE); 

dtim=end-tStart; 

onvolumeO; 

if(!max)//<LOWREAD) 
{ 

offvolumeO; 
return; 

} 

if (min = 0) 

{ 

min=max; 
dtim=0; 

} 

if (utim == 0) rise = 0; 

else rise = abs(max*13/utim); 

if (rise > 100)rise=100; 

if(dtim = 0)fall=0; 

else fall = (max-min)*10/dtim; 

if (fall = 0) 

if (max-min) fall = 1; 
if (fall > 100) fall=100; 
while(reading) 

{ 

if(kbhitO !=0) break; 

if (ifgraphic) BARandGRAPH(); 

else display_INPUTtextO; 

if (reading > 100) return; // 1| (reading < 0)) return; 
if (reading < 5) reading = 0; 
if (max < reading) max=reading; 

} 



} 

if (!max) 

{ 

max = oldmax; 
min = oldmin; 
rise = oldris; 
faU = oldfal; 

} 

else 

{ 

oldmax = max; 
oldmin = min; 
oldris = rise; 
oldfal = fall; 

} 

showline( , 'msg_MAXMINRISFAL ,, ); 
if (ifgraphic) { 

setviewport(301,5,605,420,l); 

if (iftgraph) setcolor(BLACK); 

else setcolor(bkcolor); 

for (by = 15; by < yref+1; by++) line(xbar+8,by,xbar+20,by); 
setcolor(hicolor); 
rectangle(3 15,467,600,479); 
setviewport(3 16,468,599,478, 1); 

clearviewportO; 

if (iftgraph) setcolor(WHITE); 

else setcolor(RED); 

sprintf(string,msgjine,max,min,rise,fall); 

outtextxy(4,2,string); 

setviewport(590,43 0,639,470, 1); 

clearviewportO; 

setviewport(0,0,639,479, 1); 

tyO = 420; 

} 

else { 

wprintf(wnd_reading, "\n"); 
wprintf(wndj-eading,msgji^ 

} 

ofivolumeO; 
if(fromkey = , P') { 

if (pointflag) storepostO; 
else storepre(); 
if (ifgraphic=l) { 

if (iftgraph = 1) displaypointgraphO; 
if (iftgraph = 0) display lpointbarQ; 



settextlO; 
} 

if (ifgraphic=0) { 

if (fromkey = T') display_pointsO; 

else displaypointO; 

} 

} 

writeptread(pointpoint); 

} 

} 

/* Used by Scan & Timegraph */ 

void displaypotgraphO 

- { 

setcolor(MAGENTA); 
rectangle(253,468,3 13,479); 
setviewport(254,469,3 12,478, 1); 
clearviewportQ; 
getdilutionO; 

outtextxy(4,2,pot[dilindex] .name); 
setviewport(0,0,63 9,479, 1 ); 
moveto(0,0); 
} 

void nxtpotgraphO 

{ 

potpoint++; 
displayp otgraphO ; 

} 

void prevpotgraphO 

{ 

potpoint--; 
displaypotgraphO; 

} 

/* Scan */ 

void clearfilterO 

{ 

setviewport(l,414,540,423,l); 
clearviewportO; 

} 



void filter(int j) 

{ 

char string[65]; 
setcolor(letterlcolor); 
rectangle(0,413 3 541 5 424); 
clearfilterO; 

sprintf(string, M %#2d. %s %s %#3d %#3d %#3d %#3d %s" j+l ; hold[j].name 3 

holdO]jd,holdft.max,holdft.min^ 

outtextxy(4, 2, string); 

} 

void setchoices(void) 

{ 

choicestart[choicepoint] = start; 
choiceend[choicepoint] = end; 
choicekey[choicepoint] = key; 
choicestep[choicepoint] = step; 

} 

void squares(void) 

{ 

static kit deltax[12] = { 256,128,128,64,64,32,32,16,16,8,8,4 }; 
intx,y; 

setcolor(DARKGRAY); 

y=ytop; 

x=0; 

while (y < 388) { 

y = y + 

line(xleft,y,xrite,y) ; 
x=deltay[rowcol- 1 ] ; 

} 

x=xleft; 
y=0; 

while (x < 532) { 
x = x + y; 
line(x,ytop,x,ybot); 
y=deltax[rowcol- 1 ] ; 

} 

} 

void makeboxes(void) 

{ 

char keychar[6]; 
char string[60]; 
char style=l; 



int i,k,length; 

setviewport(277,5,531 3 393 3 l); 

clearviewportO; 
setviewport(0 3 0,63 9 3 4 79 3 l); 
setfillstyle(style,RED); 
bar(xl,yl,x2,y2); 
squaresO; 

for (i=0; Krowcol; i++) { 

if (i = choicepoint) setcolor(RED); 

else setcolor(DARKGRAY); 

if (choicekeyfi] = '+') showliae( M msg_YES "); 

else showline("msg_NO "); 

strcpy(keychar,msg_line); 

if (choicekey[i] = 0) { 

length=strlen(msg_line) ; 

strcpy(keychar, " "); 

keychar[length]=0; 

} 

showline("msg_Numbertoscan M ); 

sprintf(string 3 msg_line,iH-l 3 keychar 5 choicestep[i]); 

k=(i+4)*20; 

setviewport(0,k,260 3 k+10 3 1); 

clearviewportO; 
setviewport(0 3 0 3 639 3 479 3 1); 
outtextxy(3 ,k, string); 

} 

} 

scan(char withhold) 

{ 

char style=l; 

long int j,totest,first,differ; 

char save_screen[25*80*2]; 

char string[60]; 

char string2[60]; 

char filterpoint=0; 

char filterflag=l; 

int i^m.mask; 

void scanmenuO; 
helpfunc=scanmenu ; 
gettext( 1,1, 80,25, save_screen); 
setgraphmode(g_mode); 
setbkcolor(bkcolor) ; 

settextstyle(TRIPLEX_FONT, HORIZ_DIR, 3); 



if (withhold) showline("msg_Loading "); 

else showline("msg_Loadingex "); 

outtextxy(50,3 0 3 msg_line); 

iftgraph=0; 

ifgraphic=l; 

choicepoint = 0; 

totest=0; 

if(fromkey = T){ 

strcpy(string2, savehead); 

start = itempoint; 

for (j=start; j<nscan+start; j++) { 

getproduct(j); 

if(id[0] = ") break; 

if (j > nitem) break; 

scanlistO[totest]=numO; 

scanlist 1 [totest]=numl ; 

scanlist2[totest]=num2; 

scanlist3 [totest]=num3 ; 

scanlist4[totest]=num4; 

scanlistS [totest]=num5 ; 

scanlist6[totest]=mim6; 

scanlist7 [totest]=num7 ; 

scanlist8 [totest]=num8 ; 

scanlist9 [totest] =mim9; 

scanplace[totest]=j; 

totest-H-; 

if(withhold = 0) { 

for(i=0;i<h+l;i++) { 

if (stxcmp(name,hold[i].name) = 0) totest—; 

} 

} 

} 

} 

ifCfromkey^A') { 

strcpy(string2,savehead); 

start = areapoint; 

for (j=start; j<nscan+start; j++) { 

if (j>narea- 1 ) break; 

scanlistO[totest]=area[j] .numO; 

scanlist 1 [totest]=area[j] .numl ; 

scanlist2[totest]=area[j].num2; 

scanlist3 [totest]=area[j] .num3 ; 

scanlist4 [t otest] =ar ea [j ] . num4 ; 

scanlistS [totest] =area[j ] .numS ; 

scanlist6 [t ot est] =ar ea[j ] . num6 ; 



scanlist 7 [t otest ] =ar eajj ] . num7 ; 

scanlist8 [totest]=area[j ] . num8 ; 

scanlist9[totest]=area[j].num9; 

scanplace[totest]=j; 

totest++; 

} 

} 

if(fromkey==T) { 

showline("msg_Filterl "); 

strcpy(string2,msg_line); 

start=0; 

for (j=0; j<nscan+start; j++) { 

if (filterl[j].name[0] < 'A') break; 
scanlistO[totest]=filterl [j].numO; 
scanlist 1 [totest]=filterl [jj.numl; 
scanlist2[totest]=filter 1 [j] .num2; 
scanlist3 [totest]=filter 1 [j] ,num3 ; 
scanlist4[totest]=filter 1 [j] .num4; 
scanlist 5 [totest]=filter 1 [j] .num5 ; 
scanlist6[t otest] =filter 1 [j] .num6; 
scanlist7 [totest]=filter 1 [j ] . num7 ; 
scanlist8[totest]=filterl [j] .num'8; 
scanlist9[totest]=filterl [j].num9; 
scanplace[totest]=j ; 
totest++; 
} 

} 

if(fromkey = '2') { 

showlineC'msg_Filter2 "); 

strcpy(string2 ? msg_line); 

start=0; 

for 0=0; j<nscan+start; j++) { 

if (filter2[j].name[0] < 'A') break; 
scanlistO [t otest] =filter2 [j ] . numO ; 
scanlist 1 [totest]=filter2[j] numl ; 
scanlist2[totest]=filter2[j] .num2; 
scanlist3 [totest]=filter2[j] .num3 ; 
scanlist4[totest]=filter2[j] .num4; 
scanlist5 [totest]=filter2[j] ,num5 ; 
scanlist6[totest]=filter2[j] .num6; 
scanlist7[totest]=filter2[j].num7; 
scanlist8[totest]=filter2[j].num8; 
scanlist9[totest]=filter2[j].num9; 
scanplace[totest]=j; 
totest++; 



} 

} 

ifCfromkey^T) { 

showline( n msg_Dilutionof "); 
strcpy(string2 s msg_line); 
strcat(string2 , outname); 
start=0; 

for0=0;j<64;j^){ 

scanlist 1 [totest]=pot[j+ 1 ] .num[0] ; 
scanlist2 [totest]=pot 0 + 1 ] .num[ 1 ] ; 
scanlist3 [totest]=pot[i + 1 ] .num[2] ; 
scanplace[totest]=j+l ; 
totest-H-; 
} 

} 

for (j=totest; j<nscan; j++) { 

scanlist l[j]=99; /*set so skip on out*/ 

scanlist2[j]=0; 

scanlist3[j]=0; 

scanlist4[j]=0; 

scanlist5[j]=0; 

} 

forO=0;j<n;j++){ 

choicestart[j]=0; 
choiceend[j]=0; 
choicekey[j]=0; 
choicestep[j]=0; 

} 

for (rowcol=l; rowcoKll; rowcol-H-) { 
step=pow(2,rowcol); 
if (totest=step) break; 
if (totest/step < 1) break; 

} 

first=start; 

end = start+step; 

clearviewport(); 

Bibox(2,2,430); 

showline("msg_ScanOperatn "); 

outtextxy(l 5 ? 5,msg Jine); 

settextlO; 

showline("msg_Scanning "); 

strcpy(string 3 msg_line); 

strcat(string,string2); 

outt extxy ( 150,395, string) ; 

showline("msg_TotalSquares n ); 



sprintf(string 3 msg_line 3 step); 

outtextxy( 1 0,45 , string); 

showlineC'msgJ^oadedSquare' 1 ); 

sprintf(string 3 msg_line 3 totest); 

outtextxy(l 0 5 60,string); 

choicestart[choicepoint] = start; 

choiceend[choicepoint] = end; 

choicekey[choicepoint] = '+'; 

choicestep[choicepoint] = step; 

differ=step-totest; 

xl=xleft; 

yl=ytop; 

x2=xrite; 

y2=ybot; 

labelbarO; 

rectangle(xl ,y 1 ,x2,y2); 

setfillstyle(style 3 RED); 

bar(xl,yl 3 x2 3 y2); 

squaresO; 
key=0; 

if (outholdflag) outholdgraphO; 
while (key != ESC) 

{ 

if (PORTABLE = KEYPORT) 

{ 

if (FreezeO) 

{ 

outputholdO; 

for (i=start-first; i<end-first; i++) 
{ 

if (scanlistl[i] = 99) break; 

outputcode(cPotNum, scanlistO [i] 3 scanlist 1 [i] 3 scanlist2 [i] , 
scanlist3 [i], scanlist4[i], scanlist5 [i] 3 scanlist6 [i] 3 
scanlist7 [i] 3 scanlist 8 [i] 3 scanlist9 [i] ) ; 

} 

setcolor(bkcolor); 

setviewport(500,420,599,438, 1); 

clearviewportO; 

setviewport(0,0,63 9,479,1); 

setcolor(RED); 

UnFreeze(); 

} 

} 

if (CARD = KEYCARD) 

{ 



outputholdO; 

for (i=start-first; i<end-first; i++) 
{ 

if (scanlistl[i] = 99) break; 

outputcode(cPotNum, scanlistO [i], scanlist 1 [i], scanlist2 [i], 
scanlist3 [i] , scanlist4 [i] , s canlist 5 [i] , scanlist 6 [i] , 
scanlist7 [i] 3 scanlist8 [i] 5 scanlist9 [i]); 

} 

} 

setcolor(WHITE); 

INPUTO; 
displayscan=0; 

foot=footpedalO; 

if ((kbhitO) || (foot>0)) { 

if (foot>0) key=foot; 

else { 

key = get_char(); 
key = toupper(key); 

} 

switch(key) { 

case LSWITCH: key='-'; 
case if (choicepoint = 0) { 

twobellsO; 

break; 

} 

if (scanlistl [end-first] = 99) twobellsO; 
else { 

start = end; 

end = end+step/2; 

step = end - start; 

setchoicesO; 
choicepoint-H-; 

if (y2-yl = deltay[rowcol-l]) { 

if (xl = xleft && x2 = xrite) { 

yl=y2; /* all line ■*/ 

y2=y 1 +deltay [rowcol- 1 ] ; 
x2=xl+((xrite-xleft)/2); 

} 



else { 



k=x2-xl; 

xl=x2; 

x2=xl+k/2; 

} 



else { 



k=y2-yl; 
yl=y2; 

y2=yl+((k)/2); 
} 

} 

displayscan=l; 

break; 
case 1=1 : key - +'; 
case RSWITCH: key='+'; 
case ^step = step/2; 

end = start+step; 

step = end - start; 

setchoicesO; 

choicepoint-H-; 

if (y2-yl = deltay[rowcol-l]) x2=((x2-xl)/2)+xl; 

elsey2=((y2-yl)/2)+yl; 

displayscan=l; 

break; 

case 'H': toggle_outholdO; 

outholdgraphO; 

break; 
case T':if(h<0){ 

beepO; 

break; 

} 

if (filterflag) { 

filterflag=0; 
filter(filterpoint); 

} 

else { 

filterflag=l; 
clearfilterO; 
} 

beepO; 
break; 

case UP: if (filterflag) break; 

filterpoint— ; 

if (filterpoint<0) filterpoint=h; 

filter(filterpoint); 

break; 

case DN:if (filterflag) break; 

filterpoint-H-; 

if (filterpoint>h) filterpoint=0; 

filter(filterpoint); 

break; 



"B'lif (choicepoint > 1) { 

choicepoint--; 
choicepoint--; 

start = choicestart[choicepoint]; 
end = choiceend [choicepoint]; 
step = choicestep[choicepoint]; 
choicepoint-H-; 

if (choicekey [choicepoint] = '+') { 

if (xl = xleft && x2 = xrite) 

y2=((y2-yl)*2)-fyl; 
else x2=((x2-xl)*2)+xl; 

} 

else { 

if (y2-yl = deltay[rowcol-l]) { 

if (xl = xleft &&x2 = xrite) { 

k=y2-yl; /* up to line */ 

y2=yl; 

yl=yl-(k*2); 

display scan=l; 

beepO; 
break; 

} 

if(xl = xleft) { 

k=y2-y 1 ; /* up to line */ 

y2=yl; 

yl=yl-k; 

x2=x2+(x2-xl); 

} 

else { /* go left */ 

k=x2-xl; 
x2=xl; 
xl=xl-(k*2); 

} 

} 

else { /* up & double */ 
k=y2-yl; 

y2=yi; 

yl=yl-(k*2); 

} 

} 

displayscan=l; 

beepO; 

} 

else beepO; 
break; 



case V: prevpotgraphO; break; 
case nxtpotgraphO; break; 
case r N':if(fromkey> , 4 , ){ 

start = end-differ; 

if (fromkey='A') if (start > narea) start=0; 
if (fromkey==T) if (start > nitem-1) start=0; 
if (start=0) end=0; 

} 

break; 

default: beepO; break; 

} 

if (end = start) break; 

if(key = 'N l ) break; 

if (displayscan) makeboxesO; 

if (filterflag = 0) outlhold(filterpoint); 

} 

} 

if (fromkey = T) start=scanplace[ start-first]; 
backtext(); 

puttext ( 1 , 1 , 8 0 , 2 5 , s ave_screen) ; 

ifgraphic=0; 

iftgraph=l; 

if (fromkey > ( 4*) outflag = 1; 
return start; 

} 

/* Timegraph */ 
void clearoutbox() 

{ 

setviewport^O^S^T^l); 

rectangle(0,468,25 1,479); 

setviewport(l,469,250,478,l); 

clearviewportO; 

} 

void setlistgraphO 

{ 

setviewport(0,0, 63 9,479, 1 ); 

moveto(0,0); 

outflag=l; 

} 



void outareagraph() 

{ 



setcolor(WHITE); 

settextjustify(LEFT_TEXTJOP_TEXT); 
clearoutboxO; 

outtextxy(4. 2, area[areapoint] .name); 
setlistgraphO; 

} 

void outitemgraphO 

{ 

getproduct(itempoint); 
loadoutO; 
clearoutboxO; 
setcolor(WHITE); 

settextjustify(LEFT_TEXT 3 TOP_TEXT); 
outt extxy (4, 2 , outname) ; 
setlistgraphO; 

> 

void upitemgraphO 

{ 

if (itempoint = 0) itempoint = nitem-1; 

—itempoint; 

outitemgraphO; 

> 

void downitemgraphO 

{ 

if (itempoint > nit em- 3) itempoint = -1; 

-H-itempoint; 

outitemgraphO; 

> 

void upareagraphO 

{ 

if (areapoint = 0) areapoint = narea; 

— areapoint; 

outaxeagraphO; 

> 

void downareagraphO 

{ 

if (areapoint > narea-2) areapoint = -1; 

-H-areapoint; 

outareagraphO; 

> 



void outwhichgraphO 

{ 

if (fromkey = 'A') outareagraphO; 
if (fromkey = T) outitemgraphO; 
} 

void tellpointfindO 

{ 

char string[30]; 
if (pointfindflg) { 

setviewport(481,425 5 579 5 436,l); 

clearviewportO; 

} 

else { 

setcolor(letter 1 color); 
setviewport(481,425,579,436 ? l); 
showline( M msg_FindPoint "); 
sprintf(string 3 msg_line); 
outtextxy (4, 2, string) ; 

} 

} 

void tellextendedO 

{ 

char string[30]; 
if (timeout < 600) { 

setviewport(48 1,440,600,45 1, 1); 

clearviewportO; 

} 

else { 

setcolor(letterl color); 
setviewport(481,440,600,451,l); 
showline("msg_ExtendedTime"); 
sprintf(string,msg_line); 
outtextxy(4, 2, string); 

} 

} 

void outputarea(int j) 

{ 

if (PORTABLE == KEYPORT) 

{ 

if (outflag || outholdflag) 

{ 

if (FreezeQ) 



{ 

outputholdO; 
if (outflag) 

{ 

outputcode(cPotNum,area[j ] .numO, area[j] .num 1 , areajj] .num2, area[j].num3, 

areajj] . num4, areajj] .num5 5 area[j] . num6 5 area[j] . num7, 
area[j] - num8, area[j] .num9) ; 

else ofivolumeO; 
UnFreezeO; 

} 

} 

return; 

} 

if (CARD = KEYCARD) 

{ 

outputholdO; 
if (outflag) 

{ 

outputcode(cPotNum,area[j] .numO,area[j] .numl 3 area[j] .num2 3 area[j] .num3 ? 
areajj] .num4 ? area0] .num5 5 area[j] .num6 ? area[j] .num7 ? 
area[j].aum8 ? area[j].num9); 

} . 

else offvolumeO; 

} 

} 

void outputitemO 

{ 

if (PORTABLE =- KEYPORT) 

{ 

if (outflag || outholdflag || filter lflag || filter2flag) 

{ 

if (FreezeQ) 

{ 

outputhold(); 

outputflO; 
output£20; 
if (outflag) 

{ 

outputcode(cPotNum, outnumO, outnuml , outnum2, outnum3 , 

outnum4 5 outnum5,outnum6 5 outnum7 5 outnum8 ? outnum9); 

} 

else offvolumeQ; 



UnFreezeO; 

} 

} 

} 

if (CARD = KEYCARD) 

{ 

outputholdO; 

outputflO; 
output£20; 
if (outflag) 

{ 

outputcode(cPotNum, outnumO, outnum 1 , outnum2 3 outnum3 , 

outnum4 3 outnumS 3 outnum6 , outnum7 , outnumS, outnum9) ; 

} 

else ofivolumeO; 

} 

} 

void timegraphO 

{ 

char save_screen[25*80*2]; 
extern void (*helpfunc)0; 
extern void helpO; 
int savetimeout; 
int key=0; 
cleargraphflag=l; 
xchangecolor(); 
savetimeout=timeout; 

if (fromkey = 'P') helpfiinc=graphmenupoint; 
else { 

void graphmenulistO; 
helpfunc=graphmenulist; 

} 

gettext(l , 1 , 80,25 3 save_screen); 
setgraphmode(g_mode); 
setbkcolor(BLACK); 
setusercharsize(l 3 1,1,1); 

settextstyle(SMALL_FONT 3 VERT_DIR,USER_CHAR_SIZE); 
showline("msg_Amplitude M ); 
outtextxy(290,2 1 0 3 msg_line); 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR_SIZE); 
showline( " msg_Time " ) ; 
outtextxy(400 3 4 23 ,msg_line); 
labelbarO; 

rectangle(0 3 4 3 290 3 421); 



rectangle(300,4,589,421); 
settextlO; 

displaypointgraphO; 

if (fromkey = 'A 1 ) outareagraphO; 

if(fromkey = T) { 

outitemgraphO; 

displaypotgraphO; 

} 

tellpointfindO; 
tellextendedO; 
ifgraphic= 1; 

if (outholdflag) outholdgraphO; 
while (key != ESC) { 

if (fromkey != T') { 

if (fromkey = 'A') outputarea(areapoint); 

if (fromkey = T) outputitemO; 

if (outflag = 0 ) clearoutboxO; 

} 

else 

{ 

if (PORTABLE = KEYPORT) outputholdPortO; 
if (CARD = KEYCARD) outputholdO; 

} 

INPUTO; 
foot=footpedalO; 
if (kbhitO || foot>0) { 

if(foot>0)key=foot; 

else { 

key = get_charO; 
key = toupper(key); 

} 

switch(key) { 

case LSWITCH: if (fromkey = ?') { 

if (lastanatomy < 9 1) prevpoint(); 
else nxtpoint(); 
displaypointgraphO; 
break; 

} 

case UP: if (fromkey = A') upareagraphO; 

if (fromkey = T) upitemgraphO; 
break; 

case RIGHT: if (fromkey = TP') { 

if (lastanatomy < 91) nxtpoint(); 
else prevpoint(); 
displaypointgraphO; 



break; 

} 

case DN: if (fromkey = 'A') downareagraphO; 

if (fromkey = T) downitemgraphO; 
break; 

case HOME: pointhomeO; 

break; 

case END: pointendO; 

break; 

case if (fromkey = T) prevpotgraphO; 
break; 

case M : if (fromkey = T) nxtpotgraphO; 
break; 

case BS: if (lastanatomy < 91) prevpointO; 
else nxtpointO; 
displaypointgraphO; 
break; 

case FWD: if (lastanatomy < 91) nxtpointO; 
else prevpointO; 
displaypointgraphO; 
break; 

case ": if (fromkey = 'P') outflag=l; 

toggle_outflagO; 

if (outflag) outwhichgraphO; 

else clearoutboxO; 

break; 

case 'HP: if (pointflag || (fromkey != P')) { 

toggle_outholdO; 
outholdgraphO; 

} 

break; 

case '*': if (pointflag) { 

setbase(); 

if (outholdflag) clearholdboxO; 

} 

else setpostO; 

displaypointgraphO; 

break; 

case T:toggle_infoflagO; 

showinfographO; 
break; 

case *F:if (pointfindflg) pointfindflg=0; 

else pointfindflg=l; 

twobellsO; 

tellpointfindQ; 



break; 

case , C , :toggle_cleargflagO; break; 
case 'O': otherpointO; 

displaypointgraphO; 

break; 

case 'IT: foothandO; 

displaypointgraphO; 
break; 

case F7: graphmenupointO; 
break; 

case 'F: if (timeout != 600) { 

savetimeout = timeout; 
timeout = 600; 

} 

else timeout = savetimeout; 

twobellsO; 

tellextendedO; 

break; 

case INS: holdonegraph0; 

if (outholdflag) outholdgraphO; 
break; 

case 'S': if (sillyflag) sillyflag=0; 

else sillyflag=l; 

twobellsO; 

break; 

case ALT_R: 

if (PORTABLE=KEYPORT) 

{ 

putchar(BELL); 

ClearDCMO; 

SetupDCMO; 

putchar(BELL); 

putchar(BELL); 

} 

break; 

case '%': movepointO; break; 
default : break; 

} 



} 

} 

timeout = savetimeout; 

ifgraphic=0; 

backtextO; 

puttext(l ? l ? 80,25 ? save_screen); 
lastanatomy=l; 



pointfindflg=l; 

basecolor=RED; 

postcolor=BLUE; 

if (pointcolor = LIGHTRED) pointcolor=RED; 
else pointcolor=BLUE; 

} 

void setreadwindowO 

{ 

wnd_reading = establish_window(43,22,3,36); 
showline( M msg_MMRFReading "); 
set_title(wnd_reading 5 msg_line); 

set_colors(wnd_reading, ALL, lette^color, WHITE, DM); 

display_window(wnd_reading); 

//memory2(); 

} 

/* Area & List */ 

void outareaO 
{ 

display_window(wnd_outitem); 

if (outflag) wprintf(wnd_outitem ? ,, \n%s^area[areapoint].name); 
else clear_window(wnd_outitem); 

} 

void outitemO 
{ 

if (filteroutflag) return; 

display jwindow(wnd_outitem) ; 

if (outflag) wprintf(wnd_outitem/ , \n%s" J oiitname); 

else clear_window(wnd_outitem); 

} 

void display20item() 

{ 

long int first j, row; 

showline("msg_Items "); 

set_title(wnd_item,msg_line); 

set_colors(wnd^tem 5 ALL ? itemcolor J WHITE J DIM); 

set_colors(wnd_item 3 ACCENT 5 accentcolor 5 WHITE 3 BRIGHT); 

display jwindow(wnd_it em) ; 

first = itempoint-9; 

row = 0; 

if(itempoint< 10) { 



row = 9-itempoint; 

first = 0; 

} 

wcur sor (wnditem, 0,0); 
for(j=0;j<row;j++){ 

if (j != 0 ) wprintf(wnd_item ) "\n"); 

printspace(wnd_item,3 9); 

} 

for (j=first: j<itempoint+l 1; j++) { 

if (row != 0) if ((itempoint+11) != j) wprintf(wnd_item,"\n"); 
row = 1; 
getproduct(j); 
if (itempoint=j) { 

reverse_video(wnd_item); 

loadoutO; 

} 

if (j < nitem-1) wprintf(wnd_item/'%s %s" ? name,id); 
else printspace(wnd_item,39); 
normal_video(wnd_item); 

} 

outitem(); 

} 

void display20area0 

{ 

unsigned int first j,row; 

tellareas(subarea,wnd_head); 

showline("msg_Heading "); 

set_title(wnd_area 3 msg_line); 

display_window(wnd_area); 

first = areapoint-9; 

row = 0; 

if (areapoint < 10 ) { 

row = 9-areapoint; 
first = 0; 

} 

wcursor(wnd_area ? 0,0); 
for(j=0;j<row;j++) { 

if (j != 0 ) wprintf(wnd_area 3 "\n"); 

printspace(wnd_area J 3 9); 

} 

for (j = first; j<areapoint+l 1; j++) { 

if (row != 0) if ((areapoint+11) != j) wprintf(wnd_area, n \n"); 

row = 1 ; 

if (j < narea) { 



if (areapoint=j) reverse_video(wnd_area); 
if (area[j].biblio = wprintf(wnd_area, n "); 
wprintf(wnd_area 3 n %s M ,area[j].name); 

} 

else printspace(wnd_area.39); 
normal__video(wnd_area); 

} 

outareaO; 

showline( M msg_AREALIST "); 
strcpy(savehead,msg_line); 

} 

void displaypot(char name[8]) 

{ 

int dilcolor; 

strcpy (p otname, name) ; 

if (dilutionflag) dilcolor=GREEN; 

else dilcolor=BROWN; 

set_colors(wnd_pot,ALL,dilcolor 3 BLACK,DIM); 
wprintf(wnd_pot, M \n%s",potname); 

} 

void getpot(int number) 

{ 

potpoint^number; 
display_windo w(wnd_pot) ; 
getdilutionO; 

displaypot(pot[dilindex] .name); 

} 

void setpot() 

{ 

int len; 

set_colors(wndjot,ALL,WHITE 5 BLACK ? DIM); 
for (len=0; len<6; len++) potname[len]=0; 
enterpot(); 

/*xxxlen=strlen(findname) ; 
strncpy(potname 5 findname,len) ; */ 
displayp ot(potname) ; 

} 

void showhead(void) 

{ 

display_window(wnd_head) ; 
wprint£(wndJiead, M \n%s ,, J savehead); 



} 

void displayhead(long pointer) 

{ 

getproduct(pointer); 
if (id[0] = " ) { 

display_window(wnd_head); 

wprintf(wnd_head, u \n%s n ; name); 

strcpy(savehead,name); 

company[4]=id[4]; 

company[5]=id[5]; 

company[6]=id[6]; 

headpoint=itempoint; 

} 

} 

void displayitemO 

{ 

getproduct(itempoint); 
displayhead(itempoint); 
outflag=l; 
display20item0; 

} 

void getareaO 

{ 

long int saveitem; 
int i=0; 

saveitem=itempoint; 

while (area[i] .position <= itempoint) i++; 
i-S 

itempoint = area[i]. position; 

displayhead(itempoint); 

itempoint=saveitem; 

} 

void upitemO 

{ 

if (itempoint = 0) itempoint = nitem-1; 
—itempoint; 

if (itempoint < headpoint) getarea(); 
displayitem(); 

} 

void downitemQ 



{ 

if (itempoint > nitem-3) itempoint = -1; 

-H-itempoint; 

displayitemO; 

} 

void displayareaO 

{ 

outflag=l; 
display20area0; 

} 

void upareaO 

{ 

— areapoint; 

if (areapoint < 0) areapoint = narea-1; 
displayareaO; 

} 

void downareaO 

{ 

-H-areapoint; 

if (areapoint > narea-1) areapoint = 0; 
displayareaO; 

} 

void skipdownsubareaO 

{ 

if (sub area > 1) return; 
-H-areapoint; 

if (areapoint > narea-1) areapoint = 0; 
while (area[areapoint].biblio = 'x') { 
-H-areapoint; 

if (areapoint > narea-1) areapoint = 0; 

} 

displayareaO; 

} 

void skipupsubareaO 

{ 

if (subarea > 1) return; 
—areapoint; 

if (areapoint < 0) areapoint = narea-1; 
while (area[areapoint].biblio = l x') { 
—areapoint; 



if (areapoint < 0) areapoint = narea-1; 

} 

displayareaO; 

} 

void displayheaditemO 

{ 

displayhead(itempoint); 
display20item0; 

} 

void downheadO 

{ 

int i; 

for (i=0; i<narea; i++) { 

if (strcmp(area[i].name,savehead) = 0) break; 

} 

if (i>narea-l) i=0; 
itempoint = area[i]. position; 
displayheaditemO; 

} 

void upheadO 

{ 

int i; 

for (i=0; i<narea; i++) { 

if (strcmp(area[i].name,savehead) == 0) break; 

} 

if(outid[0] = ") i«; 
if (i<0) i=narea-l; 
itempoint = area[i]. position; 
displayheaditemO; 

> 

void skiplines(int number) 

{ 

itempoint = itempoint+number; 

if (itempoint > nitem-2) itempoint=nitem-2; 

display20item0; 

} 

void setoutwindowO 

{ 

wnd_outitem = establish_window(41 ? 12 3 3,38); 



showline("msg_Output "); 
set_title(wnd_outitem 5 msg_line); 

set_colors(wnd_outitem 5 ALLJetter2color 3 WHITE 3 BRIGHT); 
display jwindow(wnd_outitem); 

} 

void setitemlistO 

{ 

setmenuhelp( M item ",0,0); 

readpotfileO; 

gosetoutholdO; 

gosetfilterlO; 

gosetfilter20; 

wnd_pot = estabUsh_window(30 3 0,3,10); 
showline("msg_Dilution "); 
set_title(wnd_p ot,msg_line) ; 
set_colors(wndjot 3 ALL3ROW ) WHITE 3 DIM); 
getpot(potpoint); 

wnd_head = establish_window(0 3 0,3,30); 

showline("msg_Heading "); 

set_title(wnd_head 3 msg_line); 

set_colors(wnd_head 3 ALL ? itemcolor,WHITE ? DIM); 

displayhead(headpoint); 

wndjellhold = establish_window(41 ? 9 3 3 3 30); 

showline("msg_PlacedinHold n ); 

set_title(wnd_tellhold 5 msg_line); 

set_colors(wnd_tellhold 3 ALL, letter3 color, WHITE, DIM); 
wnd_item = establish_window(0,3, 22,40); 

gosetptinyO; 

outflag=l; 

setoutwindowO; 

setreadwindowO; 

reportflag=0; 

outholdflag=0; 

filterlflag=0; 

filter2flag=0; 

} 

void scanitem(char without) 
{ 

if (outid[0] = ' ') downitem(); 
nextflag=0; 
start=scan(without) ; 
itempoint=start; 
displayhead(headp oint) ; 



out£lag=l; 

display20item(); 

getpot(potpoint); 

helpfunc=help; 

outholdO; 

} 

void itemlistO 

{ 

int i; 
int c=0; 

char footdil=l; /* l=item 5 O=dilutions */ 

char insleftfoot=l; /* l=up 0=insert */ 

char washold; 

fromkey=T; 

tokey=T; 

iftgraph=l; 

ifgraphic=0; 

setitemlistO; 
-H-itempoint; 
displayhead(it emp oint) ; 

display20item(); 
while (c != ESC) { 
cursor off(); 
outputitemQ; 
INPUT(); 
foot=footpedal(); 
if((kbhitO) || (foot>0)) { 
if(foot>0) c=foot; 
else { 

c = get_char(); 
c = toupper(c); 

} 

switch(c) { 

case LSWITCH: if (footdil=0) { 

prevpotO; 
break; 

} 

if(insleftfoot = 0) { 

holdone(); 
break; 

} 

case UP: upitem(); 

break; 

caseRSWITCH: if (footdil=0) { 



nxtpotO; 

} 

else { 

if (reportflag) if (footflag='F) reportoneO; 
downitemO; 

} 

break; 

case DN: if (reportflag) if (footflag= f K t ) reportoneO; 
downitemO; 
break; 

case '5': skiplines(20); break; 
case '6': skiplines(60); break; 
case ! %': skiplines(-20); break; 
case ,AI : skiplines(-60); break; 
case PGDN: downheadO; break; 
case PGUP: upheadO; break; 
case HOME: itempoint=0; 

displayhead(O); 

outflag=l; 

display20item0; 

break; 

case END: itempoint = area[narea-l]. position; 
displayhead(itemp oint) ; 
iternpoint=nitem-2; 
outflag=l; 
display20item0; 
break; 

case INS: holdoneO; 

break; 

case ALT_I: if (insleftfoot) insleftfoot=0; 

else insleftfoot=l; 

beepO; 
break; 

case T':pnum=0; 

printingO; break; 
case , ; , :pnum=l; 

printingO; break; 
case ' ': toggle_outitemO; break; 
case 'H': holdboxO; break; 
case T: flboxO; break; 
case '2': £2box0; break; 
case 'K': referenceO; break; 
case 'R': toggle_reportO; 

twobellsO; 
break; 



case "V: hide_window(wnd_tellhold); 

hide_window(wnd_outhold); 
outholdflag=0; 

viewhold(); 
break; 

case '!': hide_window(wnd_outfl); 
filterlflag=0; 

viewfilterlO; 
break; 

case '@': hide_window(wnd_out£2); 
filter2flag=0; 
viewfilter2(); 
break; 

case '$': timeinfoO; break; 
case 'L': showreportOi break; 
case 'Q': findqO; 

getareaO; 
break; 
case T'\ finditemO; 

getareaO; 
break; 
case ALT_F: findnumO; 

getareaO; 
break; 

case W: display_timeO; break; 

case F9: if (CARD = 0x4545) setvolumeO; break; 

caseFlO: areapoint=selectareaO; 

itempoint = area[areapoint] .position; 

displayheaditemO; 

break; 

case F8: areapoint=selectAZareaO; 

itempoint = area[areapoint]. position; 

displayheaditemO; 

break; 

case ENTER: washold=outholdflag; 
timegraphO; 
outflag=l; 
display20item0; 
displaypot(potname); 
if (outholdflag) outholdO; 
else if (washold) delete_window(wnd_outhold); 
helpfunc=lielp; 

displaypointO; 
break; 

case 'S': setscanQ; break; 



case V: prevpotO; break; 
case 7: nxtpotO; break; 
case ALT_Z: scanitem(O); 

break; 

case 'Z': scanitem(l); 

break; 

case '+': plusstorepostO; break; 
case 'M': toggle_dilutionO; break; 
case 'A': potpoint=0; 

getpot(O); 

break; 

case ALT_D: if (footdil) footdil=0; 

else footdil=l; 

beepO; 

break; 

case 'D': alldilutionsO; 

helpfunc=help; 
break; 

case ALT_X: switchdilution('X'); break; 
case ALT_C: switchdilution('C'); break; 
case ALT_M: switchdilution('M'); break; 
case 'C: close_allO; 

showclientO; 

setitemlistO; 

display20item0; 

break; 

case W: notepadO; break; 
case 'E: vbarsO; break; 
caseBS: prevpoint(); 

displaypointO; 

break; 

case FWD: nxtpoint(); 

displaypointO; 
break; 

case '0': otherpoint(); 

displaypointQ; 
break; 

case 'U': foothandO; 

displaypointO; 
break; 

case 7': jumptopoint(); break; 
case '*': if (pointflag) setbaseO; 

else setpostO; 

if(h>-l)outholdO; 

displaypointO; 



break; 
case '~':if(h>-l){ 

zapperserialO; 
break; 

} 

case '#': OutputCapsuleO; 

cUckO; 
clickO; 
break; 

case F2: if (company [6] != 1 ') { 

productinfoO; 

} 

else beepO; 

break; 
case ESC: break; 
default: break; 

} 

setmenuhelp("item ",0,0); 

} 

oflVolumeO; 

outflag=0; 

reportflag=0; 

outholdflag=0; 

tokey=T; 

close_all(); 

} 

void itemlistbegin(void) 

{ 

itempoint=0; 
itemlistO; 

} 

void setarealistQ 

{ 

iftgraph=l; 
ifgraphic=0; 
fromkey='A'; 
tokey='A; 

setmenuhelp("area ",0,0); 

wnd_head = establish_window(8,0,3,26); 

set_colors(wnd_head, ALL, areacolor, WHITE,DIM) ; 

wnd_area = estabtish_window(0,3, 22,40); 

set_colors(wnd_area,ALL,areacolor,WHITE,DIM); 



set_colors(wnd_area 5 ACCENT,accentcolor ? WHITE 5 BRIGHT); 

gosetoutholdO; 

gosetptinyO; 

setoutwindowO; 

setreadwindowO; 

displayareaO; 

} 

void readareafileO 

{ 

char filename[10]; 
FILE *fytr; 
narea=0; 

strcpy(filename,"AREAl .DAT"); 

if( (^tr=fopen(filename,"rb"))=NULL ) { 

operationinfo("errorfl",10,5,yeskey); 

exit(O); 

} 

else { 

while( fread(&area[narea],sizeof(area[0]),l,^5tx)=l ) narea-H-; 

fclose(fptr); 

gotoxy(l,21); 

} 

} 

void writeaxeafileO 

{ 

FILE *fptr; 

if( (fptr=fopen("AREAl.DAT","wb ,, ))-=NULL ) { 
operationinfo(" errorfl " , 10,5 ,yeskey) ; 

} 

else fwrite(area,sizeof(aiea[0]) ; naiea ? fptr); 
fclose(fptr); 

} 

void areaiist(void) 

{ 

int c=0; 

//int nCount5=0; 
//int nCount6=0; 
areapoint=0; 
reportflag=0; 
setarealist(); 
while (c!=ESC) { 
cursor oSQ; 



outputarea(areapoint); 

cursor(26,9); 

nCount5++; 

printf("Count5=%d",nCount5); 

INPUTO; 

cursor(26,10); 

nCount6++; 

printf(" Count6=%d M ,nCount6); 
foot=footpedalO; 
if((kbhitO) II (foot > 0)) { 

if (foot>0) c=foot; 

else { 

c = getcharO; 
c = toupper(c); 

} 

switch(c) { 

case LSWITCH: 

case UP: upareaO; break; 

case RSWITCH: 

case DN: downareaO; break; 

case ' ': toggle_outareaO; break; 

case 'H': holdboxQ; break; 

case W: display_timeO; break; 

case F9: if (CARD = 0x4343) setvolume(); break; 

case ENTER: timegraphO; 

display20area0; 

outholdflag=0; 

helpfunc=help; 

displaypointO; 
break; 

case 'V: hide_window(wnd_outhold); 
outholdflag=0; 

viewhold(); 
break; 

case 'L': showreportQ; break; 
case HOME: areapoint=0; 

display20area(); 

break; 

case END: areapoint=narea-l; 

display20area0; 
break; 

case F 10: areapoint=selectarea(); 

display20area(); 
break; 

caseF8: areapoint=selectAZareaQ; 



display20area(); 
break; 

case 'K': referenceQ; break; 
case 'G: close_allO; 

itempoint = area[areapoint]. position; 

headpoint=itempoint; 

itemlistO; 

setarealistO; 

break; 

case 'S': setscanO; break; 
case '$': timeinfoO; break; 
case 'Z': areapoint=scan(l); 

display20area0; 

helpfunc=help; 

break; 

case '0': otherpointO; 

displaypointO; 
break; 

case 'IT: foothandO; 

displaypointO; 
break; 

case 'J': jumptopointO; break; 
case '+': plusstorepostO; break; 
case 'P'ipnum^O; 

printingO; break; 
case ';':pnum=l; 

printingO; break; 
case 'C: close_allO; 

showclientO; 

setarealistO; 

displayareaO; 

break; 

case 'N': notepadO; break; 
case 'E: vbarsO; break; 
caseBS: prevpointO; 

displaypointO; 

break; 

case FWD: nxtpointO; 

displaypointO; 
break; 

case '*': if (pointflag) setbaseO; 

else setpostO; 
displaypointO; 
break; 

case PGDN: skipdownsubareaQ; break; 



case PGUP: skipupsubareaO; break; 
case '!': if (clicks) 

{ 

oflvolumeO; 
clicks=0; 

} 

else clicks=l; 

putchar(BELL); 

break; 
case ESC: break; 
default: break; 

} 

} 

setmenuhelp(" area " , 0 ? 0); 

} 

ofivolumeO; 
outflag=0; 

close_all(); 
tokey='A f ; 

} 



/* UTILITY Module for LISTEN Program */ 
/* Copyright 1992-8 by James Hoyt Clark */ 



^include <dos.h> 
#include <conio.h> 
#include <stdarg.h> 
^include <stdio.h> 
#include <stdlib.h> 
#include <graphics.h> 
#include <bios.h> 
#include <alloc.h> 
#include <sys\types.h> 
^include <sys\timeb.h> 
include <sys\stat.h> 
#include <fcntl.h> 
#include <time.h> 
#include <string.h> 
#include "twindow.h" 
#include "keys.h" 
include "pcMc.h" 



#define COM 0 /* serial port number */ 

#define CONF 0xE3 /* 9600 baud, no parity, 1 stop, 8 bits */ 

#define TEXTCOLOR WHITE 

#define PANELBACK DARKGRAY 

#define WAVEBKCOLOR BLUE 

#define LINECOLOR WHITE 

void beep(void); //????????? 

/* 

012345678901234567890123456789012345678901234567890123456789012345678901234567 
89012345678901234567890*/ 

char code[]= n COPYRIGHT (c) 1999 by James Hoyt Clark\n\n written and developed by James 
Hoyt Clark 

extern const TICS; 
extern int nTimes; 
extern int nGetBuffer; 
extern int nPortDelay; 
int nFootDelay; 

/* General Variables */ 

extern struct textsettingstype oldtext; 

extern int g_driver; 

extern int g_mode; 

extern int g_error; 



extern unsigned int nscanum; 
extern int potpoint; 
extern int npot; 
extern int foot; //????? 
extern char displayscan; 
extern char infoflag; 
extern char cleargraphflag; 
extern char dilutionflag; 
extern char outflag; 
extern int pointcolor; 
extern int letter3 color; 
extern char pointflag; 
extern char outholdflag; 
extern char ifgraphic; 
extern char iftgraph; 
extern char pnum; 
extern char userptcode; 

extern unsigned char waveamplitude[256]; 

extern unsigned char plotamp[256]; 

extern unsigned char voltage; 

extern unsigned char gain; 

extern unsigned char max; 

extern unsigned char min; 

extern unsigned char rise; 

extern unsigned char fall; 

extern int wavepoint; 

extern int timerO; /*frequency*/ 

extern int timer 1; 

extern int timer2; 

extern int freqcount; 

extern int freqpoint; 

extern int freqsave; 

extern char msg_line[80]; 
extern char octave; 
extern FILE *linefp; 

/*Defaults*/ 
extern char savamp; 
extern char amp; 
extern unsigned int nscan; 
extern int timeout; 
extern int rate; 

extern unsigned char readinglow^eadinghi; 



extern int reading; 

extern int letter 1 color; 
extern int letter2color; 
extern int hicolor; 
extern int normcolor; 
extern int lowcolor; 
extern int bkcolor; 
extern int accentcolor; 
extern int basecolor; 
extern int postcolor; 
extern int areacolor; 
extern int itemcolor; 
extern int whichallergy; 
extern int clientdrive; 
extern char footflag; 
extern char language; 
extern unsigned int nitem; 
extern int narea; 
extern long int npoint; 
extern long int usepoint; 
extern int usedeletes; 
extern int useprints; 
extern int useA; 
extern int useB; 
extern int vtypel; 
extern int vtype2; 
extern int vtype3; 
extern int vtype4; 
extern int amount; 

extern char multi_am; 
extern char multi_vib; 
extern char multi_egtyp; 
extern char multi_ksr; 
extern char multi; 

extern char tone_ksl; 
extern char tone_level; 
extern char tone_dc; 
extern char tone_dm; 
extern char tone_fb; 

extern char attack; 
extern char decay; 



extern char suslevel; 
extern char relrate; 



extern char rhy_mel; 
extern char drumJBD; 
extern char drum_SD; 
extern char drum_TOM; 
extern char drum_TCY; 
extern char drum_HH; 

extern unsigned char pitch; 

extern char susON_OFF; 
extern char keyON_OFF; 
extern char octave; 
extern char f_num8; 

extern char instrument; 
extern char volume; 

extern char percussion; 

extern char bd_vol; 
extern char hh_vol; 
extern char sd_vol; 
extern char tom_vol; 
extern char tcy_vol; 

extern int CARD; 
extern int PORTABLE; 

extern struct potrecord 

{ 

char name[8]; 
char num[6]; 
char CR; 
char LF; 

}; 

extern struct potrecord pot[1000]; 
extern struct reportrecord 

{ 

char name[31]; 
char id[8]; 

unsigned char potency[ll]; 



unsigned char max; 
unsigned char min; 
unsigned char rise; 
unsigned char fall; 

}; 

extern struct reportrecord report[170]; 

extern int nreport; /* Item Readings capacity */ 

extern int reportpoint; /* Record pointer */ 

extern char reportflag; 

extern char outname[3 1]; 

extern char outid[8]; 

extern int dilindex; 

void(*helpfunc)0; 

extern void helpO; 

int helpkey=Fl; 

int helping=0; 

int totalvisit; 

double totaltime; 

char govern; 

char restoreflag; 

char operatorname[3 1]; 

int pageline; 

int SerPort; 

int OUTPUTCOUNT; 

char *Fonts[] = { 
"DefaultFontV'TriplexFontV'Smdff^ 

}; 

char *Language[] = { 
"ENGLISH ","ESPANOL ","DEUTSCH ","FRANCAIS" 

}; 

char *Colors[] = { 

"BLACK " 3 "BLUE ", "GREEN ","CYAN ","RED ", "MAGENTA 
"BROWN ","LIGHTGRAY ","DARKGRAY ","LIGHTBLUE 
" , "LIGHTGREEN" , "LIGHTCYAN ", 

"LIGHTRED ","LIGHTMAGEN","YELLOW ","WHITE " 

}; 

static int EGAnum[16] = {0,1,2,3,4,5,20,7,56,57,58,59,60,61,62,63}; 

char *LineStyles[] = { 
"SolidLn", "DottedLn", "CenterLn", "DashedLn", "UserBitLn" 



}; 



char *FillStyles[] = { 
"EmptyFilT, "SolidFM", "LineFUl", "LtSlashFM", 
"SlashFffl", "BkSlashFilT, "LtBkSlashFill", "HatchFilT, 
"XHatchFill", "InterleaveFill", "WideDotFill", "CloseDotFiU" 

}; 

char *TextDirect[] = { 
"HorizDir", "VertDir" 

}; 

int GraphDriver; /* The Gfraphics device driver */ 

int GraphMode; /* The Graphics mode value */ 

int MaxX, MaxY; /* The maximum resolution of the screen */ 

int MaxColors; /* The maximum # of colors available */ 

unsigned char printerstatus; 

unsigned char prtmsg; 

int defaultvalues[100]; 

WINDOW *wnd_timing; 

WINDOW *wnd_report; 

double tused 3 tperstep; 

time_t t start, t stop; 

struct timeb time_bufFer; 

void xxxbellsQ 

{ 
} 

void twobellsO 

{ 

putchar(BELL); 
putchar(BELL); 

} 

int set_ctl_brk(int which) 

{ 

union REGS ireg; 
ireg.h.ah = 0x33; 
ireg.h.al = 0x01; 
ireg.h.dl = which; 
intdo s(&ireg, &ir eg) ; 
return ireg.h.dl; 

} 



int get_char() 

{ 

int c; 

static union REGS rg; 
ofivolumeO; 
//set_ctl_brk(0); 
while (1) { 

rg.kah = 1; 
int86(Oxl6,&rg,&rg); 
if(rg.x.flags&0x40) { 

int86(Ox28,&rg,&rg); 

continue; 

} 

rg.h.ah = 0; 

int86(0xl6,&rg,&rg); 

if (rg.h.al = 0) c = rg.h.ah | 128; 

else c = rg.h.al; 

if (c = helpkey && helpfunc) { 
if ((helping) { 

helping = 1; 

(*helpfiinc)0; 
helping = 0; 
return Oxff; 

} 

// if (c = FREEZE) 

// { 

// UnFreezeO; 

// nTimes-H-; 

// printf("Tc:%#4d",nTimes); 

// c=0; 

// } 
break; 

} 

return c; 

} 

void settextlO 

{ 

setusercharsize( 1 , 1 , 1 , 1 ) ; 
settextjustify(LEFT_TEXT, TOP_TEXT) ; 
settextstyle(0,HORIZ_DIR,USER_CHAR_SIZE); 

} 



void settextcQ 



{ 

settextjustify( CENTERTEXT, TOP_TEXT ); 
settextstylepEFAULT_FONT,HORIZ_DIR,USER_CHAR_SIZE); 

} 

void Bibox(int size,int x,int y) 

{ 

setfillstyle(SOLID_FILL,LIGHTGRAY); 
bar(x+ 1 ,y+l ,x+44,y+44); 
setcolor(BLUE); 

setlinestyle(S OLIDLINE, 0, THICKWDD TH) ; 
rectangle(x+6,y+6,x+3 9,y+3 9); 
setlinestyle(SOLDD_LINE,0,NORM_WIDTH); 
rectangle(x+3,y+3,x+42,y+42); 
rectangle(x,y,x+4 5 ,y+45 ); 
settextstyle(TRIPLEX_FONT,HORIZ_DrR,size); 
outtextxy(x+15,y+8,"Bi"); 
outtextxy(x+50,y-2,"BioSource"); 

} 

void cursoroffQ 

{ 

union REGS regs; 

regs.h.ch=0x20; 

regs.h.ah=l; 

int86(0xl 0,&regs,&regs); 
} 

void cursoronO 

{ 

union REGS regs; 
regs.h.ch=0x0c; 
regs.h.cl=0x0d; 
regs.h.ah=l; 

int86(0xl0,&regs,&regs); 
} 

void backtextO 

{ 

restorecrtmodeO; 
cursoroffOi 

} 



void makesound(int freq, unsigned time) 

{ 



if (CARD = KEYCARD) setpitch(freq,5 3 1 1); 

onvolumeO; 

delay(time); 

oSvolumeO; 

> 

void makesoundPC(int freq, unsigned time) 

{ 

sound(freq); 
delay(time); 
nosoundO; 

} 

void clickO 

{ 

if (CARD = KEYCARD) makesound( 10,30); 

if (PORTABLE = KEYPORT) makesoundPC(500,5); 

} 

void beepO 

{ 

if (CARD = KEYCARD) makesound(100,100); 

if (PORTABLE = KEYPORT) makesoundPC(1000,10); 

} 

void bleepO 

{ 

if (CARD = KEYCARD) makesound( 150,50); 

if (PORTABLE = KEYPORT) makesound(2000,15); 

} 

void changetextstyle(int font, int direction, int charsize) 

{ 

int ErrorCode; 

graphresult0; /* clear error code */ 
settextstyle(font, direction, charsize); 
ErrorCode = graphresult(); /* check result */ 
if( ErrorCode != grOk ){ /* if error occured */ 
closegraph(); 

printf("Graphics System Error: %s\n", grapherrormsg( ErrorCode ) ); 
exit(l); 

} 

} 



int gprintf( int *xloc, int *yloc, char *fint 3 ... ) 

{ 

va_list argptr; /* Argument list pointer */ 
char str[140]; /* Buffer to build string into */ 

int cnt; /* Result of SPRINTF for return */ 

va_start( argptr, fint ); /* Initialize va_ functions */ 
cnt = vsprintf( str 5 fint, argptr ); /* prints string to buffer */ 
outtextxy( *xloc, *yloc, str ); /* Send string in graphics mode */ 
*yloc += textheight( "H" ) + 2; /* Advance to next line */ 

va_end( argptr ); /* Close va_ functions */ 
return( cnt ); /* Return the conversion count */ 

} 

void gprintline( int *xloc 3 int *yloc, char *line) 

{ 

va_Ust argptr; /* Argument list pointer */ 
char str[140]; /* Buffer to build string into */ 

va_start( argptr, line ); /* Initialize va_ functions */ 
vsprintf( str, line, argptr ); /* prints string to buffer */ 
outtextxy( *xloc, *yloc, str ); /* Send string in graphics mode */ 
*yloc += textheight( "H" ) + 2; /* Advance to next line */ 

va_end( argptr ); /* Close va_ functions */ 

} 

void TopLine(char *msg) 

{ 

int height; 
char string[80]; 
struct viewporttype vp; 

setlinestyle(SOLro_L]m 3 0,NOm_WroTH); 
settextjustify(CENTER_TEXT,TOP_TEXT); 
height = textheight("H M ); 
getviewsettings(&vp); 
setfillstyle(SOLID_FILL,DARKGRAY); 
bar(2,2,vp.right-vp.left-2 ? height+8); 
setcolor(MaxColors-l); /*white*/ 
rectangle(0, 0,vp .right-vp .left,height+8); 
outtextxy((vp.right-vp.left)/2,6 ? msg); 

} 



void BottomLine(char *msg) 



{ 

int height; 

struct viewporttype vp; 

setlinestyle(SOLED_LINE 5 0 5 NORM_WIDTH); 
settextjustify(CENTER_TEXT 5 TOP_TEXT); 
height = textheight( n H n ); 
getviewsettings(&vp); 
setfiUstyle(SOLK)_FILL 3 DARKGRAY); 
bar(2,vp.bottom-(vp.top+height+4)^ 
setcolor(MaxColors- 1 ); /* white*/ 
rectangle(0, vp .bottom-(vp . top+te 

outt extxy ((vp . right-vp . left)/2, vp . b ott om-(vp . top+height+2), msg) ; 

} 

void DrawBorder(void) 

{ 

struct viewporttype vp; . 
setcolor(MaxColors- 1); /* white*/ 
sethnestyle(SOLro_LINE 3 0 3 TfflCK_WIDTH); 
getviewsettings(&vp); 

rectangle(0, 0, vp .right-vp .left, vp . bottom-vp . top); 
setfillstyle(SOLID_FILL ? LIGHTCYAN); 
bar(2 3 2 ? vp.right-vp.left-2,vp. bottom-vp. top-2); 
setlinestyle( SOLIDJLINE, 0, NORM_WIDTH ); 

} 

void graphmenuwindow(void) 

{ 

setviewport(306,25 J 580,370, 1); 

DrawBorderO; 

} 

void graphmenupoint(void) 

{ 

graphmenuwindowO ; 
operationgraph(TtTMenu^5,30,yeskey); 

} 

void graphmenulist(void) 

{ 

graphmenuwindowO; 
operationgraph("LtTMenu" ? 5,30,yeskey); 

} 



void scanmenu(void) 



{ 

graphmenuwindow(); 

operationgraph(" ScnMenu 5, 3 0,y eskey); 

makeboxesO; 

} 

void barsmenu(void) 

{ 

graphmenuwindowO; 
operationgraph(TtBarMn",5,22,yeskey); 

display_pointbarsO; 

} 

void panelmenu(void) 

{ 

setviewport(2,2,5 1 8,261, 1); 
DrawBorderO; 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR_SIZE); 

operationgraph("PanelMn",5,22,yeskey); 

setviewport(0,0,63 9,479, 1 ); 

settextjustify(LEFT_TEXT, TOP_TEXT) ; 

whichwaveO; 

} 

void infonnationO 

{ 

int key = 0; 

WINDOW *wnd_info; 
close_allO; 

wnd_info=establish_window(6 ? 1 0,9,60); 
set_colors(wndJnfo 3 ALL ? BROWN,BLACK 3 DIM); 
display__window(wnd_info); 
wprompt(wnd_info 3 4, 1 3 code); 
wcursor(wnd_info ? 4 3 5); 
showline("msg_CustomL ");. 
wprintf(wnd_info 3 M %s %s n 3 msg_line 5 operatorname); 
cursorofFO; 

while (key != ESC) key = get_char(); 
delete_window(wnd_info) ; 

} 

void setscan() 

{ 

WINDOW *wnd_scan; 
int key=0; 



wnd_scan = establish_window(74,0 5 3 3 6); 

showline( M msg_Scan "); 

set_title(wnd_scaamsg_line); 

set_colors(wnd_scan,ALL 3 BROWN ? WfflTE 3 DIM); 

display_window(wnd_scan); 

while (key !=ESC) { 

wprintf(wnd_scan 5 "\n%#4d " 3 nscan); 
key = get_charO; 
key = toupper(key); 
switch (key) { 

case UP: nscan = nscan*2; 

nscanum-H-; 
if (nscan > 1024) { 
nscan = 4; 
nscanum = 2; 

} 

break; 

case DN: nscan = nscan/2; 

nscanum—; 
if (nscan < 2 ) { 

nscan = 1024; 

nscanum = 10; 

} 

break; 

default:break; 

} 

} 

delete_window(wnd_scan); 

} 

void start_time() 

{ 

flime(&time_buffer); 
time(&t start); 

} 

void stop_time0 

{ 

time(&tstop); 

} 

void display_timeO 

{ 

struct tm *tm_now; 
long secs_now; 



long past_secs=0; 

char *str_now; 

WINDOW *wnd_time; 

wnd_time = establish_window(5 5 10 ; 3 5 28); 

set_colors(wnd_time 5 ALL, MAGENTA, WHITE, DIM); 

display_window(wnd_time); 

while (kbhitO = 0) { 

cursoroffO; 

time(&secs_now); 

tm_now = localtime(&secs_now); 

str_now = asctime(tm_now); 

str_now[24] = 0; 

if (secs_now != past_secs) { 

wcursor(wnd_time 5 0, 0); 

wprintf (wnd_time 5 "\n %s",str_now); 

past_secs=secs_now; 

} 

} 

getcharO; 

delete_window(wnd_tiine); 

} 

void nxtpotO 

{ 

potpoint-H-; 
getpot(potpoint); 

void prevpot() 

{ 

potpoint--; 
getpot(potpoint); 

> 

void clickwaitclear(void) 

{ 

cUckO; 

outportb(PPICTLREG,0x82); /* A=OUT */ 
delay(150); 

outportb(PPIPORTA, OxFF); 
delay(150); 

outportb(PPICTLREG,0x92); /* A=IN, B=IN, C=OUT */" 

delay(50); 

} 



int footpedal(void) 

{ 

int nFoot; 

if (CARD = KEYCARD) 
{ 

nFoot=inportb(PPIPORTA) & 0x03; 
if (nFoot = 0x03) nFoot=0; 
if(nFoot = LFOOT) 

{ 

clickwaitclearO; 
nFoot = LSWITCH; 

} 

if(nFoot = RFOOT) 

{ 

clickwaitclearO; 
nFoot = RSWITCH; 

} 

} 

if (PORTABLE = KEYPORT) 
{ 

nFoot = GetPortableO; 

if (nFoot = RIGHT || nFoot = LEFT) 

{ 

if (nFoot = LEFT) nFoot = LSWITCH; 
if (nFoot == RIGHT) nFoot = RSWITCH; 
clickO; 

delay(nFootDelay); 
SioRxFlush(SerPort); 

} 

else nFoot=0; 
return nFoot; 

> 

void printspace(WINDOW *wnd 5 int count) 

{ 

int i; 

for (i=0; Kcount; i++) wprintf(wnd," "); 
} 

void labelbarO 

{ 

char temp [3]; 
intj; 

forG=0;j<ll;j++){ 



itoaG*10,temp,10); 
outtextxy(615,417-j*40,temp); 
line(608,420-j*40,613,420-j*40); 
} 

} 

void barheading(int which) 
{ 

char str[80]; 
printcrlfO; 

showline("msg_BarGraph "); 
strcpy(str,msg_line); 
toprinter(str); 
printclient( l N'); 

if (which) showline( n msg_Post "); 

else showline( M msg_Base "); 

strcpy(str,msg_line); 

showline("msg_MMRF050100 "); 

strcat(str ? msg_line); 

toprinter(str); 

printcrlfO; 

} 

void toggle_infoflagO 

{ 

if (infoflag) infoflag=0; 
else infoflag=l; 
putchar(BELL); 

} 

void plusstorepostO 

{ 

storepostO; 

displaypointO; 

twobellsO; 

} 

void setvolumeO 

{ 

int key=0; 

WINDOW *wnd_scan; 

wnd_scan = establish_window(72,0,3,8); 

showline("msg_Volume "); 

set_title(wnd_scan,msg_line); 

set_colors(wnd_scan, ALL, MAGENTA, WHITE, DIM); 



setmenuhelpC'volume ",0,0); 
display_window(wnd_scan); 
while (key != ESC) { 

wprintf(wnd_scan 3 M \n %#2d" 5 savamp); 
key = get_char(); 
key = toupper(key); 
switch(key) { 

case LSWITCH: 
case UP : savamp-H-; 

if (savamp > 3 1) savamp 

beepO; 

break; 
case RSWITCH: 
case DN: savamp--; 

if (savamp < 0 ) savamp 

beepO; 
break; 

default:putchar(BELL); break; 

} 

> 

delete_window(wnd_scan); 

} 

void toggle_cleargflag() 

{ 

if (cleargraphflag) cleargraphflag = 0; 
else cleargraphflag = 1; 
putchar(BELL); 

} . 

void toggle_dilutionO 

{ 

if (dilutionflag) dilutionflag = 0; 
else dilutionflag = 1 ; 
putchar(BELL); 
getpot(potpoint); 

} 

void toggle_outflagO 

{ 

if (outflag) outflag=0; 
else outflag=l; 

} 

void toggle_outareaQ 



{ 

toggle_outflagO; 

outareaO; 

} 

void togsle_outitemO 

{ 

toggle_outflagO; 

outitemO; 

} 

void getoperatorO 

{ 

operatomame[0]=defaultvalues[85]/256; 
operatomame[l]=defaultvalues[85] & Oxff; 
operatomame[2]=defaultvalues[86]/256; 
operatorname[3]=defaultvalues[86] & Oxff; 
operatorname[4]=defaultvalues[87]/256; 
operatorname[5]==defaultvalues[87] & Oxff; 
operatorname[6]=defaultvalues[88]/256; 
operatorname[7]=defaultvalues[88] & Oxff; 
operatomame[8]=defaultvalues[89]/256; 
operatomame[9]=defaultvalues[89] & Oxff; 
operatomame[ 1 0]=defaultvalues[90]/256; 
operatoraame[ll]=defaultvalues[90] & Oxff; 
operatorname[ 12]=defaultvalues[9 1 ]/256; 
operatorname[13]=defaultvalues[91] & Oxff; 
operatomame[14]=defaultvalues[92]/256; 
operatoraame[15]=defaultvalues[92] & Oxff; 
operatomame[ 1 6]=defaultvalues[93]/256; 
operatomame[17]=defaultvalues[93] & Oxff; 
operatorname[ 1 8]=defaultvalues[94]/256; 
operatorname[19]=defaultvalues[94] & Oxff; 
operatorname[20]=defaultvalues[95]/256; 
operatorname[21]=defaultvalues[95] & Oxff; 
operatorname[22]=defaultvalues[96]/256; 
operatorname[23]=defaultvalues[96] & Oxff; 
operatorname[24]=defaultvalues[97]/256; 
operatorname[25]=defaultvalues[97] & Oxff; 
operatorname[26]=defaultvalues[98]/256; 
operatorname[27]=defaultvalues[98] & Oxff; 
operatoraame[28]=defaultvalues[99]/256; 
operatorname[29]=defaultvalues[99] & Oxff; 
operatorname[3 0]=0; 
if (operatorname[0] != 0) { 



setcolor(BROWN); 
showline("msg_CustomL "); 
outtextxy(40,3 80,msg_line); 
outtextxy(40,400,operatornanie); 

} 

} 

void tellareas(char subarea, WINDOW *wnd_head) 

{ 

char name[25]; 

if (subarea = 1) strcpy(name 5 " Areas & Subareas"); 

display_window(wnd_head); 

wprintf(wnd_head, "\n%s" 3 name); 

} 

void tellmessage(char words[30], int count) 
{ 

WINDOW *wnd_message; 

wnd_message = estabHsh_window(14,l,3,count); 

set_colors(wnd_message 3 ALL ? RED 3 WfflTE,DIM); 

display_window(wnd_message); 

wprintf(wnd_message, words); 

twobellsO; 
delay(2500); 

delete_window(wnd_message); 

} 

void noclientinfoO 

{ 

operationinfo("NoClien", 1 0,5,nokey); 
} 

void readerrorO 

{ 

operationinfo("ErrRdDD", 1 0,5,nokey); 

} ' 

void notreadyO 

{ 

operationinfoC'DDNORDY", 1 0, 5,nokey); 
} 

void tellfloppyO 

{ 

operationinfo("SelDD ", 1 0,5,nokey); 



} 

void setpostO 

{ 

pointflag=l; 

pointcolor=EGAnum[postcolor] ; 

} 

void setbaseO 

{ 

point£tag=0; 

outflag=0; 

outholdflag=0; 

pointcolor=EGAnum[basecolor] ; 

} 

/* Item Record */ 

void sortreport(int which) 

{ ■ . 

intij; 

unsigned int t,tl,t2; 
char temp[31]; 

for (i=0; i<reportpoint+l; i++) { 

for Q=i+l ; j<reportpoint+l ; j++) { 
if (which = M) { 

tl=report[i].max; 
t2=report[j].max; 

} 

else { 

tl=report[i].fall; 
t2=report[j].fall; 

} 

if (tl < t2) { 

strcpy(temp,report[i] .name); 

strcpy(report[i] .name 3 report[j] .name); 

strcpy (r ep ort [j ] . name, temp) ; 

t=report[i].max; 

report[i].max = report[j].max; 

report [j].max=t; 

t=report[i].min; 

report[i].min = report[j].min; 

report [j].min=t; 

t=report[i].rise; 

report [i]. rise = report[j].rise; 



report [j].rise=t; 
t=report[i].fall; 
report[i].fall = report [j]. fall; 
report [j].fall=t; 

} 

} 

} 

} 

void showreportO 

{ 

int j,rpoint,start,end 5 key,askkey; 

WINDOW *wnd_hold; 

if (reportflag) clear_window(wnd_report); 

setmenuhelp( H list ",0,0); 

wndjiold = establish jwindow(0,0,28,60); 

showline("msg_ItemReadings M ); 

set_title(wnd_hold 5 msg_line); 

set_colors(wnd_hold 3 ALL ? letter2color,CYAN 5 DIM); 

set_colors(wnd_hold 3 ACCENT ? accentcolor 5 WHITE > BRIGHT); 

display_window(wnd_hold); 

rpoint=0; 

start=0; 

key-0; 

while (key != ESC) { 

wcursor(wnd_hold, 0,0); 

if (start+20 <= reportpoint) end = start+20; 

else end = reportpoint+1; 

for (j=start; j<end; j++) 

{ 

if (j = rpoint) reverse_video(wnd_hold); 
wprintf(wnd_hold,"%#2d. %s"J+l 5 report[j].name); 
wprintf(wnd_hold," %#3d",report[j].max); 
. wprintf(wnd_hold," %#3d",report0].min); 
wprintf(wnd_hold," %#3d M ,report[j].rise); 
wprintf(wnd_hold," %#3d n ,report[i].fall); 
wprintf(wnd_hold," %s",report[j].potency); 
if (end !=j) wprintf(wnd_hold,"\n"); 
nonnal_video(wnd_hold); 

} 

wcursor(wnd_hold, 1 0,22); 

wprintf(wnd_hold, "Items: %#3d Limit: %3d",reportpoint+l,nreport+l); 
key = get_charQ; 
key = toupper(key); 
switch(key) { 



case HOME: rpoint=0; 

start=0; 
break; 

case END: ipoint=reportpoint; 

start=rpoint-19; 
if (start < 0 ) start=0; 
break; 
case RSWITCH: 
case DN: rpoint++; 

if (rpoiat > reportpoint) { 
rpoint=0; 
start=0; 

} 

if (rpoint>start+19) { 
start = rpoint; 
clear_window(wnd_hold) ; 

} 

break; 
case LSWITCH: 
case UP: rpoint—; 

if(rpoint<0) { 

rpoint=reportpoint; 
start=reportpoint- 1 9; 
if(start<0) start=0; 

} 

if (rpoint < start) { 

start=rpoint-19; 
clear_window(wnd_hold) ; 
if (start <0) { 

start=0; 

rpoint=0; 

} 

} 

break; 

case PGUP: start=start-20; 

if (start <0) start=0; 
clear_window(wnd_hold); 
rpoint=start+19; 
break; 

case PGDN: start = start+20; 

if (start > reportpoint) start=0; 
clear_window(wnd_hold) ; 
rpoint=start; 
break; 

case W: display_timeQ; break; 



case M: 

case T': sortreport(key); 

clear_window(wnd_hold); 

start=0; 

rpoint=0; 

break; 
case 'P':pnum=0; 

printingO; break; 
case DEL: if (reportpoint < 0) break; 

for (j=rpoint; j<reportpoint+l; j++) { 

strcpy(report[j] .name 3 report[j + l ] name); 

strcpy(report[j].potency ? report[j+l].potency); 

report[j].max = report[j+l].max; 

report[j].min = report[j+l].min; 

report[j].rise = report[j+l].rise; 

report[j].fall = report[j+l].fall; 

} 

reportpoint--; 
if (rpoint > reportpoint) { 
rpoint— ; 

start = rpoint- 19; 
if (start <0) start=0; 

} 

writeirecfileO; 
beepO; 

clear_window(wnd_hold) ; 
break; 

case askkey^operationMo^'delrcrd^S^yeskey); 
if(askkey = 'Y') { 
rpoint--; 

reportpoint = rpoint; 

writeirecfileO; 

clear_window(wnd_hold); 

} 

break; 
default: break; 

} 

} 

delete_window(wnd_hold); 

> 

void reportoneO 

{ 

if (outid[0] = ' ') return; 
display_window(wnd_report); 



if (reportpoint = nreport) { 

showline("msg_FULL "); 
wprintf(wnd_report,msg_line); 

twobellsO; 
return; 

} 

else { 

if (!max) return; 
-H-reportpoint; 

strcpy(report[reportpoint].name,outname); 
strcpy(report[reportpoint] .id, outid); 
strcpy(report[reportpoint] .potency,pot [dilindex] .name); 
report[reportpoint].max = max; 
report[reportpoint].min = min; 
report[reportpoint].rise = rise; 
report[reportpoint].fall = fall; 
beepO; 

writeirecfileO; 

wprintf(wnd_report/ , \n%d.%s%d'\reportpoint+l ? outname ? max); 

} 

} 

void toggle_reportO 

{ 

if (reportflag) { 

reportflag=0; 

delete_window(wnd_report); 

} 

else { 

reportflag=l; 

wnd_report = establish_window(4 1,5,3,39); 

showline("msg_ItemReadings M ); 

set_title(wnd_report,msg_line); 

set_colors(wd_report,ALL,letter3color,WHITE 5 DIM); 

display_window(wnd_report); 

} 

} 

/* Program PCB */ 

void labelwaveplot(void) 

{ 

float floatj; 
int i; 

char string[5]; 



setviewport(526,0,549,281,l); 

clearviewportO; 
setviewport(0,0,63 9,479,1); 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR_SIZE); 

floatj=5.0; 

if (wavepoint) { 

for(i=0; i<ll;i++) { 

sprintf(string, ,, %-+#l . If ,floatj); 

outtextxy(526,i*25 . 5, string); 

floatj=floatj-1.0; 

} 

} 

else { 

for(i=0; i<ll;i++) { 

sprintf(string,"%#l . If ,floatj); 

outtextxy(526,i*25.5,string); 

floatj=fioatj-0.5; 

} 

} 

} 

void plotwave(void) 

{ 

float floatj; 
int i,x=5; 
int yshift; 

floatj=5.0-(voltage/5 1.0); 

if (voltage) yshift=26 1 .0-(26. 1 *floatj); 

else yshift=131; 

setfillstyle(SOLE)_FILL,WAVEBKCOLOR); 
bar(2,2,5 18,266); 
setcolor(LINECOLOR); 
setlinestyle(SOLro_LINE,0,THICK_WIDTH); 
if (wavepoint) { 

for (i=0; i<255; i++) { 

line(x,yshift-plotamp[i],x+l,yshift-plotamp[i+l]); 

x++; 

} 

for (i=255; i>0; i~) { 

line(x,yshift-plotamp[i],x+l,yshift-plotamp[i-l]); 

x++; 

} 

} 

else line(x,261-plotamp[i],x+5 12,261-plotamp[i]); 
setcolor(TEXTCOLOR); 



setlinestyle(S OLIDLINE, 0,NORM_WIDTH) ; 

labelwaveplotO; 

} 

void howsprinter(void) 

{ 

printerstatus = biosprint(2 J 0 ) pnum); 

prtmsg = 4; /*unknown*/ 

if (printerstatus = 144) prtmsg^O; /*ready*/ 

if (printerstatus = 56 || printerstatus = 40) prtmsg=l; /*paper*/ 

if (printerstatus = 24 || printerstatus = 8) prtmsg=2; /*line*/ 

if (printerstatus = 136 || printerstatus = 128 || 

printerstatus = 184 || printerstatus = 200) prtmsg=3; /*ofP/ 

} 

void sysstatus(void) 

{ 

int key=0; 

int xasp, yasp; /* Used to read the aspect ratio*/ 

struct viewporttype viewinfo; /* Params for inquiry procedures*/ 

struct palettetype palette; 

char *driver, *mode; /* Strings for driver and mode */ 

int x,y; 

unsigned memsize; 

unsigned long mem_avail; 

setgraphmode(g_mode); 

setbkcolor(LIGHTGRAY); 

Bibox(2,300,432); 

setviewport(40, 10,600,400, 1); 

DrawBorderO; 

operationgraph( H SYSMENU" ? 5 ? 22 3 nokey); 
getpalette(&palette); /* Read the palette */ 

MaxColors = getmaxcolorO + 1; /* Read maximum number of colors*/ 
MaxX = getmaxxO; 

MaxY = getmaxyO; /* Read size of screen */ 
getviewsettings( &viewinfo ); 
getpalette( &palette ); 
x = 207; 
y = 52; 

setcolor(BLUE); 
gprintf(*S^ 5 &y 3 "%d n 5 nitem); 
gprintf(&x ? &y 5 "%d M 5 nitem-narea); 
gprintf(&x,&y ? M %lu n 5 npoint); 
gprintf(&x ? &y ? H %lu M 5 usepoint); 
y+=5*textheight( n H n ); 



memsize = biosmemoryO; 
gprint^&^&y/'yodK", memsize); 
mem_avail - farcoreleftO; 
gprint^&^e&y/'yolu'^mem^avail); 
y+=5*textheight( M H n ); 
howsprinterO; 

if (prtmsg = 0) showlme( M msg_PrmterReady u ); 
if (prtmsg =1) showline("msg_Outofpaper "); 
if (prtmsg = 2) showline( M msg_Notonline "); 
if (prtmsg = 3) showIine("msg_PrinterOflF "); 
if (prtmsg > 3) showline(''msg_UnknownCode "); 
gprintf(&x 3 &y ? msg_line); 
gprintf(&x,&y 3 "%d" 3 printerstatus); 
mem_avail = coreleftO; 
driver = getdrivernameO; 

mode = getmodename(GraphMode); /* get current setting*/ 
y+=5*textheight("H"); 

gprintf(&x 3 &y 3 M %-20s (%d)" 5 driver 3 GraphDriver); 

gprintf(&x,&y 3 "%-20s (%d)",mode,GraphMode); 

gprintf(&x,&y, H ( 0, 0, %d, %d )", 

getmaxxO, getmaxy 0) ; 

gprintf(&x 3 &y, n ( %d, %d, %d 3 %d )", 

viewinfo .left, viewinfo .top , viewinfo .right ? viewinfo. bottom); 

gprintf(&x 5 &y 5 n %s M 5 viewinfo.clip ? "ON" : "OFF" ); 

gprintf(&x 3 &y 3 M %d n ,MaxColors); 

gprintf(&x,&y, M %d M ? getcolorO); 

showline( M msg_PressESCkey "); 

B ottomLine(msg_line); 

while (key != ESC) key = get_char(); 

restorecrtmode(); 

> 

void tellprinter(void) 

{ 

howsprinterO; 

if (prtmsg = 0) operationinfoC'PtReady^lO^^okey); 
if (prtmsg = 1) operationinfo("Outpapr" 3 10 3 5 ? nokey); 
if (prtmsg = 2) operationinfo( n Notline n 3 10 5 5 ? nokey); 
if (prtmsg = 3) operationinfo("PrtOff ",10,5,nokey); 
if (prtmsg > 3 ) operationinfo( n Unknown n 3 10 3 5 5 nokey); 

} 



void readdefaults(void) 

{ 



FILE *fptr; 

if ((fptr = fop en("DEF AULT . DAT "rb ")) = NULL) { 
operationinfo("errorfl", 1 0,5,yeskey); 
exit(O); 

} 

while (fread(&defaultvalues[j] 3 sizeof(defaultvalues[50]) ; 100,^)tr)=l) j++; 
fclose(fptr); 

if (defaultvalues[2] = 0) defaultvalues[2] = 5; 
if (defaultvalues[2] > 100) defaultvalues[2] = 5; 

} 

void getdefaults(void) 

{ 

int fhandle; 
struct stat info; 
savamp=defaultvalues[0] ; 
nscan=defaultvalues[l]; 
timeout=defaultvalues[2] ; 
rate=defaultvalues[3]; 
readinglow==defaultvalues [4] ; 
readinghi=defaultvalues[5] ; 
pageline=defaultvalues[6]- 1 ; 
SerPort=defaultvalues[7]; 
letter 1 color=defaultvalues[8] ; 
letter2color=defaultvalues[9] ; 
hicolor^defaultvaluesf 1 0]; 
normcolor=defaultvalues[l 1]; 
lowcolor=defaultvalues[ 1 2] ; 
bkcolor=defaultvalues[ 13]; 
accentcolor=defaultvalues[ 1 4]; 
basecolor=defaultvalues[15]; 
postcolor=defaultvalues[ 1 6]; 
areacolor=defaultvalues[ 1 7] ; 
itemcolor=defaultvalues[ 1 8]; 
whichaUergy=defaultvalues[ 1 9] ; 
clientdrive=defaultvalues[20] ; 
userptcode=defaultvalues[2 1 ] ; 
footflag=defaultvalues[22] ; 
language=defaultvalues[23] & Oxff; 
totalvisit=defaultvalues[2 5 ] ; 

totaltime=defaultvalues[26]*1000+defaultvalues[27]; 

usedeletes=defaultvalues[28]; 

useprints=defaultvalues[29]; 

useA=defaultvalues[30]; 

useB=defaultvalues[3 1]; 



vtypel =defaultvalues[32]; 
vtype2 =defaultvalues[3 3 ] ; 
vtyp e3 =defaultvalues [3 4] ; 
vtype4 =defaultvalues[3 5]; 
amount =defaultvalues[3 6]; 
nPortDelay =defaultvalues[37]; 
nFootDelay =defaultvalues[38]; 
govern =defaultvalues[3 9]; 
restoreflag=defaultvalues[40]; 
multi_am =defaultvalues[4 1 ]; 
multi_vib =defaultvalues[42]; 
multi_egtyp=defaultvalues[43 ] ; 
multi_ksr =defaultvalues[44]; 
multi =defaultvalues[45]; 
tone_ksl =defaultvalues[46]; 
tone_Jevel =defaultvalues[47]; 
tone_dc =defaultvalues[48]; 
tone_dm =defaultvalues[49]; 
tone_fb =defaultvalues[50]; 
attack =defaultvalues[5 1]; 
decay =defaultvalues[52]; 
su slevel =d efaultvalues [53]; 
relrate =defaultvalues[54] ; 
rhy_mel =defaultvalues[5 5 ] ; 
drum_BD =defaultvalues [5 6] ; 
drum_SD =defaultvalues [57]; 
drum_TOM =defaultvalues[58]; 
dnim_TCY =defaultvalues[59]; 
dram_HH =defaultvalues[60]; 
pitch =defaultvalues[6 1 ] ; 
susON_OFF =defaultvalues[62]; 
keyON_OFF =defaultvalues[63]; 
octave =defaultvaJues[64]; 
f_num8 =defaultvalues [6 5 ] ; 
instmment =defaultvalues[66]; 
volume =defaultvalues[67]; 
percussion =defaultvalues[68]; 
bd_vol =defaultvalues[69]; 
hh_vol =defaultvalues[70] ; 
sd_vol =defaultvalues[7 1 ]; 
tom_vol =defaultvalues[72]; 
tcy_vql =defaultvalues[73 ] ; 
wavepoint =defaultvalues[74]; 
freqpoint =defaultvalues[75]; 
freqsave=freqpoint; 



voltage =defaultvalues[78]; 
gain =defaultvalues[79]; 
CARD =defaultvalues[80]; 
PORTABLE =defaultvalues[81]; 
OUTPUTCOUNT = defaultvalues[83]; 
nGetBuffer = defaultvalues[84]; 
fhandle=open( M C:\\WOm\^ 
fstat(fhandle, &info); 
nitem=info . st_size/ 5 1 ; 
close(fhandle); 

fhandle=open( n C:\\WORK\\Fi^ 
fstat(fhandle, &info) ; 
freqcount=info . st_size/23 ; 
close(fhandle); 

} 

void writedefaults(void) 

{ 

FILE *fptr; 

if ((fptr = fopen("DEFAULT.DAT","wb")) = NULL) { 
operationinfo("notfile", 10,5,yeskey); 
exit(O); 

} 

else fwrite(defaultvalues,sizeof(defaultvalues[50]), 100 ? fptr); 
fclose(fptr); 

} 

void restoredefaults(void) 

{ 

int i; 

defaultvalues[0]=15; /*savamp*/ 
defaultvalues[l]=1024; /*nscan*/ 
defaultvalues[2]=6; /*timeout*/ 
defaultvalues[3]=3; /*rate*/ 
defaultvalues[4]=55; /*readinglow*/ 
defaultvalues[5]=45; /*readinghi*/ 
defaultvalues[6]=54; /*pageline*/ 
defaultvalues[7]=0; /*SerPort*/ 
defaultvalues[8]=RED; /*letterl*/ 
defaultvalues[9]=BLUE; /*letter2*/ 
defaultvalues[10]=RED; /*hi*/ 
defaultvalues[ll]=GREEN; /*noim*/ 
defaultvalues[12]=YELLOW; /*low*/ 
defaultvalues[13]=LIGHTGRAY;/*back*/ 
defaultvalues[ 1 4]=BLACK; /* accent*/ 



defaultvalues[15 
defaultvalues[16 
defaultvalues[17 
defaultvalues[18^ 
defaultvalues[19' 
defaultvalues[2(V 
defaultvalues[2T 
defaultvalues[22; 
defaultvalues[23; 
defaultvalues[24^ 
defaultvalues[25^ 
defaultvalues[26~ 
defaultvalues[27~ 
defaultvalues[28' 
defaultvalues[29^ 
defaultvalues[30j 
defaultvalues[31] 
defaultvalues[32] 
defaultvalues[33] 
defaultvalues[34] 
defaultvalues[35] 
defaultvalues[36] 
defaultvalues[37] 
defaultvalues[38] 
defaultvalues[39] 
defaultvalues[40] 
defaultvalues[41] 
defaultvalues[42] 
defaultvalues[43] 
defaultvalues[44] 
defaultvalues[45] 
defaultvalues[46] 
defaultvalues[47] 
defaultvalues[48] 
defaultvalues[49] 
defaultvalues[50] 
defaultvalues[51] 
defaultvalues[52] 
defaultvalues[53] 
defaultvalues[54] 
defaultvalues[55] 
defaultvalues[56] 
defaultvalues[57] 
defaultvalues[58] 
defaultvalues[59j 



]=RED; /*base*/ 
]=BLUE; /*post*/ 
]=RED; /*area*/ 
]=BLUE; /*item*/ 
]=0; /*whichallergy*/ 
]='B'; /*clientdrive*/ 
|- A'; /*userptcode*/ 
|=T'; /*footflag*/ 
|=language; 
|=0; /* available xxx*/ 
|=0; /*totalvisit*/ 
|=0; /*totaltime*/ 
|=0; /*totaltime*/ 
|=0; /*usedeletes*/ 
|=0; /*useprints*/ 
|=0; /*useA*/ 
|=0; /*useB*/ 
|=100; /*vtypel*/ 
|=75; /*vtype2*/ 
|=50; /*vtype3*/ 
|=25; /*vtype4*/ 
|=0; /*amount*/ 
|=10; /*nPortDelay*/ 
|=150; /*nFootDelay*/ 
|=99; /*govern*/ 



_l 1 


, /*restoreflag*/ 


=0; 


/*multi_am*/ 


=0; 


/*multi_vib */ 


=0; 


/*multi_egtyp*/ 


=0; 


/*multi_ksr*/ 


=0; 


/*multi*/ 


=i; 


/*tone_ksl*/ 


=0; 


/*tone_level*/ 


=0; 


/*tone_dc*/ 


=0; 


/*tone_dm*/ 


=0; 


/*tone_fb*/ 


=0; 


/♦attack*/ 


=0; 


/* decay*/ 


=i; 


/*suslevel*/ 


=i; 


/*relrate*/ 


=0 : 


/*rhy mel*/ 


=0= 


/*drum BD*/ 


=0 


/*drum SD*/ 


=0 


/*drum TOM*/ 


=0 


/*drum TCY*/ 



defaultvalues[60 

defaultvalues[61 

defaultvalues[62 

defaultvalues[63 

defaultvalues[64 

defaultvalues[65 

defaultvalues[66 

defaultvalues[67 

defaultvalues[68 

defaultvalues[69 

defaultvalues[70 

defaultvalues[71 

defaultvalues[72 

defaultvalues[73 

defaultvalues[74 

defaultvalues[75 

defaultvalues[78 

defaultvalues[79 

defaultvalues[80 

defaultvalues[81 

defaultvalues[83 

defaultvalues[84 

writedefaultsO; 



=0; /*drum_HH*/ 
=0; /*pitch*/ 
=0x20; /*susON_OFF*/ 
=0x10; /*keyON_OFF*/ 
=4; /*octave*/ 
=1; /*f_num8*/ 
=7; /*instrument*/ 
=0; /*volume*/ 
=0; /*percussion*/ 
=0; /*bd_vol*/ 
=0; /*hh_vol*/ 
=0; /*sd_vol*/ 
=0; /*tom_vol*/ 
=0; /*tcy_vol*/ 
=0; /*wavepoint*7 
=0; /*freqpoint*/ 
=255; /* voltage*/ 
=0; /♦gain*/ 

=KEYCARD-1; /*CARD*/ 
=KEYPORT; /*PORTABLE*/ 
=200; /* count for skipping output */ 
=3; 



void changecolors(void) 

{ 

WINDOW *wnd_color; 
int j,sel,cl; 
char buffer[4]; 

setmenuhelp("colors ",10,10); 

wnd_color = establish_window(10 ? 0 ? 25 3 50); 

showline( H msg_ChangeColors"); 

s et_title(wnd_color 5 msg_line) ; 

set_colors(wnd_color 3 ALL 3 LIGHTGRAY 5 BLACK ? DIM); 
se^colorsCwnd^olor.ACCENT^D.BLACK^BRIGHT); 
display jwindow(wnd_color) ; 
showline( n msg__MainLetters "); 
wprompt(wnd_color ? 4,0 ? msg_line); 
showline( H msg_OtherLetters M ) ; 
wprompt(wnd_color ; 4 ? 2,msg_line); 
showline("msg_HighRange "); 
wprompt(wnd_color,4,4,msg_line); 
showline( "msg_OptimalRange" ) ; 
wprompt(wnd_color,4 , 6,msg_line) ; 



showline( "msg_LowRange " ) ; 
wprompt(wnd_color, 4, 8 ,msg_line) ; 
showline( n msg_Background ,! ); 
wprompt(wnd_color ? 4 5 1 0 ? msg_line); 
showline( ,, msg_Accent "); 
wprompt(wnd_color,4 J2,msg_line); 
showline("msg_BaseReadings M ); 
wprompt(wnd_color,4, 1 4,msg_line); 
showline("msg_PostReadings"); 
wprompt(wnd_color ? 4, 1 6,msg_line); 
showline( M msg_AreaList "); 
wprompt(wnd_color ? 4, 1 8,msg_line); 
showline("msg_ItemList "); 
wprompt(wnd_color,4 ? 20,msg_line); 
showline( l, msg_StandardColr"); 
wprompt(wnd_color,4,22,msg_line); 
sel=8; 
cl=0; 

while (cl != ESC) { 

forG=8;j<19;j++){ 
if(sd=j){ 

if (defaultvalues[j] = EGAJLIGHTGRAY) 

set_colors(wnd_color 5 ALL3LACK,EGAnum[defaultvaluesO]] ? DIM); 

else 

set_colors(wnd_color,ALL,EGA^ 

reverse_video(wnd_color); 
strcpy(bufifer > M « M ); 

} 

else { 

set_colors(wnd_color,ALL,EGA_LIGHTGRAY,EGAnum[defaultvalues[j]] > DIM); 
normal_video(wnd_color); 
strcpy(buffer," "); 
} 

wcur sor(wnd_color,23 , (j -8) * 2) ; 

wprintf(wnd_color," %s %s" 5 Colors[defaultvalues[j]] 3 buffer); 

} 

normaljvid eo (wnd_color) ; 

cursoroffO; 
cl=get_charO; 
cl=toupper(cl); 
switch(cl) { 
case UP: sel— ; 

if(sel<8) sel=18; 



break; 
case DN: seH-+; 

if (sel > 18) sel=8; 
break; 

case FWD: defaultvalues[sel]-H-; 

if (sel > 12) j=8; 
elsej=15; 

if (defaultvalues[sel] > j) 

defaultvalues[sel]=0; 

break; 

caseBS: defaultvalues[sel]~; 

if (defaultvalues[sel] < 0) 

if (sel > 16) defaultvalues[sel] = 8; 
else defaultvalues[sel]=15; 

break; 

case 'S': defaultvalues[8]=RED; /*letterl */ 

defaultvalues[9]=BLUE; /*letter2*/ 
defaultvalues[10]=RED; /*hi*/ 
defaultvalues[l 1]=GREEN; /*norm*/ 
defaultvalues[12]=14; /*low*/ 
defaultvalues[13]=LIGHTGRAY;/*back*/ 
defaultvalues[ 14]=BLACK; /*accent*/ 
defaultvalues[15]=RED; /*base*/ 
defaultvalues[ 1 6]=BLUE; /*post*/ 
defaultvalues[17]=RED; /*area*/ 
defaultvalues[18]=BLUE; /*item*/ 
break; 

default:break; 

} 

delete_window(wnd_color); 

} 

void programpcb(void) 

{ 

char save_screen[25*80*2]; 

int key ? i; 

char string[40]; 

float floatnum; 

void panelmenuO; 

helpfunc=panelmenu; 

gettext(l ? l 3 80 ; 25 ? save_screen); 

setgraphmode(g_mode); 

ifgraphic=2; 

iftgraph=0; 



setbkcolor(P ANELB ACK) ; 
setusercharsize( 1,1,1,1); 
setcolor(TEXTCOLOR); 
rectangle(0,0,520,268); /* Wave Plot */ 
rectangle(0,290,575,385); /* Panel Bars */ 
setfillstyle(SOLID_FILL,BLUE); 
bar(2,292,573,383); 

rectangle(4,3 19,454,329); /* Voltage Bar*/ 
rectangle(4,3 69,454,3 79); /* Frequency Bar*/ 
rectangle(250,395,550,460); /* Sound Box */ 
bar(252,397,548,458); 
showline("msg_VoltageVolts"); 
sprintf(string,msg_line); 
outtextxy(200,296, string); 
showline("msg_FrequencyHz "); 
sprintf(string,msg_line); 
outtextxy(200,3 45, string); 

labelbarO; 
Bibox(2,2,422); 

settextstyle(TRIPLEX_FONT,HORIZ_DIR,3); 
showline("msg_ControlPanel"); 
outtextxy(50,440,msg_line); 
setcolor(TEXTCOLOR); 

settextstyle(SMALL_FONT,VERT_DIR,USER_CHAR_SIZE); 
showline("msg_Voltage "); 
outtextxy(546, 120,msg_line); 

settextstyle(SMALL_FONT,HORIZ_DIR,USER_CHAR_SIZE); 

floatnum=0.0; 

for (i=0; i<6; i++) { 

sprintf(string, ,, %#l . If ',floatnum); 

outtextxy(90*i+2,3 04, string); 

line(90*i+4,3 15,90*i+4,3 1 8); 

floatnum=floatnum+l .0; 

} 

labelwaveplotO; 
showline("msg_Gain "); 
outtextxy(282 ? 400 > msg_line); 
showline( n msg_Instrument "); 
outtextxy(340,400,msgjine); 

tellgainO; 

tellfrequencyO; 

tellinstrument(); 

whichwaveO; 
while (key !=ESC) { 

inputO; 



foot=footpedalO; 
if (kbhitO || foot>0) { 

if (foot>0) key=foot; 

else { 

key = get_charO; 
key = toupper(key); 

} 

switch(key) { 

case W: selectwaveO; 

break; 
caseFS: squarewaveO; 

whichwaveO; 

break; 

caseF6: sinewaveO; 

whichwaveO; 

break; 
case F7: trianglewaveO; 

whichwaveQ; 

break; 
caseF8: dclineO; 

whichwaveO; 

break; 
caseRSWITCH: 
case '+': if (voltage != 255) { 
voltage-H-; 

whichwaveO; 

} 

break; 

caseLSWITCH: 

case if (voltage != 0) { 

voltage—; 
whichwaveO; 

} 

break; 
case '0': voltage = 0; 
whichwaveO; 
break; 

case 'M 1 : voltage = 128; 

whichwaveO; 
break; 

case 'L': voltage = 255; 

whichwaveO; 

break; 
case '5': voltage = 255; 

whichwaveO; 



break; 
case '4': voltage = 204; 

whichwaveO; 

break; 
case '3': voltage =153; 

whichwaveO; 

break; 
case '2': voltage = 102; 

whichwaveO; 

break; 
case T: voltage = 51; 

whichwaveO; 

break; 
case 'D 1 : voltage = 64; 

whichwaveO; 

break; 
case 

case '>': gain++; 

if (gain > 7) gain = 0; 

tellgainO; 

break; 
case V: 

case '<': if (gain = 0) gain = 7; 
else gain--; 

tellgainO; 

break; 
case T: instrument-H-; 

if (instrument > 15) instrument 

tellinstrumentO; 

break; 
case UP: increasefreqO; 
break; 

case DN: decreasefreqQ; 

break; 
case '6': timerO-H-; 

tellfrequencyO; 
break; 
case ,AI : timerO--; 

tellfrequencyO; 
break; 
case 7': timerl++; 

tellfrequencyO; 
break; 
case '&': timerl--; 

tellfrequencyO; 



break; 
case '8': timer2-H-; 

tellfrequency(timerO ; timer 1 , timer2); 

break; 
case '*': timer2«; 

tellfrequency(timer0 5 timerl 5 timer2); 

break;*/ 
case HOME: topfrequencyO; 

break; 
case INS: afrequencyO; 

break; 

case END: lowfrequencyO; 

break; 
default: break; 

} 

} 

} 

defaultvalues[66]=instrument; 

defaultvalues[74]=wavepoint; 

defaultvalues[75]=freqpoint; 

defaultvalues[78]=voltage; 

defaultvalues[79]=gain; 

writedefaultsO; 

backtextO; 

puttext( 1 , 1 , 80,25 , save_screen); 

iftgraph=l; 

ifgraphic=0; 

> 

void defaults(void) 

{ 

WINDOW *wnd_defaults; 
int j 5 sel; 

static int limithi[] = {31,1024,600,10,100,50,80,10}; 
static int limitlowQ = {0,2,1,1,50,0,40,0}; 
int c=0; 

wnd_defaults = establish_window(0,0,24,70); 
showline("msg_SysDefaults "); 
set_title(wnd_defaults,msg_line); 
set_colors(wnd_defaults,ALL,RED,WHITE,DIM); 
set_colors(wnd_defaults,ACCENT,BLACK,WHITE,BRIGHT); 
display_window(wnd_defaults) ; 
showline("msg_VolumeColon "); 
wprompt(wnd_defaults, 5 , 1 ,msg_line); 
showline("msg_InitialScan "); 



wprompt(wndjd efaults , 5,3, msg_line) ; 
showline("msg_ReadingTime M ); 
wprompt (\vnd_d efaults, 5,5, msg_line) ; 
showline("msg_GraphTime "); 
wprompt(wnd_default s, 5 , 7, msgjine) ; 
showline("msg_LowMaximum "); 
wprompt(wnd_defaults, 5,9,msg_iine); 
showline("msg_HighMinimum "); 
wprompt(wnd_defaults,5, 1 l,msg_line); 
showline("msg_LinesPerPage n ); 
wprompt(wnd _defaults,5, 1 3,msg_line); 
showline("msg_Language "); 
wprompt(wnd_defaults,5, 1 6,msg_line); 
showline( n msg_AllergyList "); 
wprompt(wnd_defaults,5, 1 7,msg_line); 
showline( n msg_ClientDrive "); 
wprompt(wnd_defaults,5, 1 8,msg_line); 
showline("msg_PointsList "); 
wprompt(wnd_defaults,5, 1 9,msg_line); 
showline("msg_FootKey "); 
wprompt(wnd_defaults,5,20 3 msg_line); 
showline("msg_CforColors "); 
wprompt(wnd_defaults, 5 , 22,msg_line) ; 
sel=0; 

readdefaultsO; 
setmenuhelpC'default", 1 8,3); 
while (c !=ESC) { 

for G=0; j<7; j++) { /* 8 for fall */ 

if (sel = j) reverse_video(wnd_defaults); 
else normal_video(wnd jdefaults); 
wcursor(wnd_defaults,27,j*2+l); 
. if (j != 2) wprintf(wnd_defaiilts, n %#4d M ,defaultvalues[j]); 
else wprintf(wnd_defaults,"%#5. If ',defaultvalues[2]*. 1); 

} 

normal_video(wnd_defaults); 

wcursor(wnd_defaults,25, 1 6); 

wprintf(wnd_defaults, n %s",Language[language-65]); 

wcursor(wnd_defaults,23 ,17); 

if (whichallergy) showline( ,, msg_RinkelSeries M ); 

else showlineC'msg^StandardLow "); 

wprintf(wnd_defaults,msg_line); 

wcursor(wnd_defaults,28, 1 8); 

wprintf(wnd_defaults, n %c M ,clieiitdrive); 

wcursor(wnd_defaults,28, 1 9); 

wprintf(wnd_defaults, "%c" ,userptcode); 



wcursor(wnd_defaults,22,20); 

if (footflag = T) showline("msg_RightFootPed"); 

else showline("msg_DownArrowKey"); 

wprintf(wnd_defaults,msg_Iine); 

if (PORTABLE == KEYPORT) 

{ 

cursor(50,2); 

printf("Size(Ww):%#3d",nGetBuflFer); 
cursor(50,3); 

printf("Port(Xx):%#5d" ) nPortDelay); 
cursor(50,4); 

printf("FootCYy): 0 /o#5d",nFootDelay); 
} 

cursoroffQ; 
c=get_char(); 
switch(c) { 

case UP: sel— ; 

if(seKO) sel=6; 
break; 
case DN: sel++; 

if(sel>6) sel=0; 
break; 

case FWD:if (sel=l) defaultvalues[sel] = defaultvalues[sel]*2; 
else defaultvalues[sel]++; 
if (defaultvalues[sel] > limithi[sel]) 

defaultvalues[sel]=limitlow[sel]; 

break; 

case BS: if (sel=l) defaultvalues[sel] = defaultvalues[sel]/2; 
else defaultvalues[sel]— ; 
if (defaultvalues[sel] < limitlow[sel]) 
defaultvalues[sel]=limithi[sel]; 

break; 

case 'c': 

case 'C: changecolors(); 

setmenuhelp( M default H s 10, 1 0); 
break; 

case T: 

case ! L': language-H-; 

language=readpulldn(language); 

defaultvalues[23 ]=language; 

fclose(linefp); 

lo ad_linetxt(language) ; 

break; 

case 'a': 

case 'A': if (whichallergy) whichallergy=0; 



else whichallergy=l; 
defaultvalues[ 1 9]=whichallergy; 
break; 

case 'd': 

case 'D': if (clientdrive = 'A') clientdrive = 'B'; 
else clientdrive = 'A'; 
defaultvalues[20]=clientdrive; 
break; 

case 'p': 

case *P': if (userptcode < A') userptcode = *@'; 
userptcode-H-; 

if (userptcode > 'z') userptcode = A 1 ; 

defaultvalues[21]=userptcode; 

break; 

case 'f : 

case 'F: if (footflag = T') footflag = *K'; 

else footflag = F; 

defaultvalues[22]=footflag; 

break; 
case F10: programpcbO; 

helpfunc=help; 

break; 

case V: 
case W: 

if (c = W) nGetBuffer++; 
else nGetBuffer--; 

if (nGetBuffer > 1 1) nGetBuffer = 0; 
if (nGetBuffer < 0) nGetBuffer =11; 
defaultvalues[84] = nGetBuffer; 
break; 

case l x': 

case 'X': if (c=*X') nPortDelay++; 

else nPortDelay--; 

if (nPortDelay > 50) nPortDelay = 0; 
if (nPortDelay < 0) nPortDelay = 50; 
defaultvalues[37]=nPortDelay; 
break; 

case 'y f : 

case 'Y': if (c = 'Y') nFootDelay++; 

else nFootDelay--; 

if (nFootDelay < 0) nFootDelay - 600; 
if (nFootDelay > 600) nFootDelay = 0; 
defaultvalues[3 8]=nFootDelay ; 
break; 

default:break; 



} 

} 

getdefaultsO; 
writedefaultsO; 
delete_window(wnd_default s) ; 

> 

void setup (void) 

{ 

char outfo[ 100]; 
int key; 

union REGS inregs, outregs; 

set_ctl_brk(0); 

readdefaultsO; 

getdefaultsO; 

delay(lOOO); 

if(kbhitO !=0) 
{ 

key = get_char(); 
key = toupper(key); 
switch(key) 

{ 

case TP': 

if (PORTABLE = 0x5050) 

{ 

PORTABLE = 0x4F50; 
printf("\nClear Portable"); 
} 

else 

{ 

PORTABLE = 0x5050; 
printf("\nSet Portable"); 
} 

defaultvalues[8 1 ] - PORTABLE; 
writedefaultsO; 
break; 
case 'C: 

if (CARD = 0x4343) 

{ 

CARD = 0x4243; 
printf("\nClear Card"); 

} 

else 

{ 

CARD = 0x4343; 



printf("\nSet Card"); 
} 

defaultvalues[80] = CARD; 

writedefaultsO; 
break; 
case 'S': 

if(SerPort) 

{ 

printf("\nSetCOMl"); 
SerPort=0; 
defaultvalues[7] = 0; 
writedefaultsO; 
} 

else 

{ 

printf("\nSet COM2"); 
SerPort=l; 
defaultvalues[7] = 1; 
writedefaultsO; 

} 

break; 

} 

} 

if (CARD != 0x4343 && PORTABLE != 0x5050) 
{ 

printf("\n\nNo CARD or PORTABLE requested: %x %x" , CARD,PORTABLE); 

delay(lOOO); 

exit(O); 

} 

if (CARD = 0x4343) 
{ 

setPCBO; 
offvolumeO; 

printf("\nDCM Card Connected: %x",CARD); 
} 

if (PORTABLE = 0x5050) 
{ 

printf("\nLooking for DCM Receiver at COM%d\n\n",SerPort+l); 

SetupDCMO; 

} 

detectgraph(&g_driver, &g_mode); 
if(g_driver <0) { 

operationinfo( n Nograph'\ 1 0,4,yeskey); 

exit(l); 

} 



if (registerfarbgifont(triplex_font_far) < 0) exit(l); 
if (registerfarbgifont(small_font_far) < 0) exit(l); 
initgraph(&g_driver J &g_mode, '*"); 
g_error = graphresultO; 
if(g_error<0) { 

printfC'initgraph error: %s.\n", grapherrormsg(g_error)); 

exit(l); 

} 

gettextsettings(&oldtext); 
setbkcolor(bkcolor) ; 
setcolor(BROWN); 

settextstyle(TRIPLEX_FONT,HORIZ_DIR, 5); 

outtextxy(22,122,"EQ"); 

outtextxy(72,112,"4"); 

rectangle(14, 119,620,220); 

settextjustify(LEFT_TEXT,TOP_TEXT); 

settextstyle(TRIPLEX_FONT,HORIZ_DIR, 3 ); 

outtextxy(22, 162, "Electronic Questionnaire Fourth Generation"); 

settextstyle(TRIPLEX_FONT,HORIZ_DIR, 1); 

strcpy(outfo, code); 

outfo[38]=0; 

outtextxy(20, 1 90,outfo); 

settextjustrfy(oldtext.horiz, oldtext. vert); 

getoperatorO; 

Bibox(2,300,432); 

delay(2500); 

cleardeviceO; 
if (! govern) { 

setcolor(BROWN); 

showline("msg_investl "); 

outtextxy(l 0, 1 70,msg_line); 

showline("msg_invest2 "); 

outtextxy(l 0, 1 90,msg_line); 

settextjustify(oldtext.horiz,oldtext.vert); 

settextstyle(oldtext.font, oldtext. direction,textsize); 

delay(2000); 

} 

//inregs.h.ah = 0; /* 'get stat' service */ 
//inregs.x.dx = COM; /* port number */ 
//inregs.h.al = CONF; /* configuration */ 
//int86(0xl4, &inregs ? &outregs); 

restorecrtmodeO; 
textbackground(bkcolor); 

readareafileO; 
readfilterlQ; 



readfilter20; 
readpointfileO; 
allholdtagsO; 
amp=savamp; 

setscaleO; 
helping=0; 

pointcolor=EGAnum[basecolor]; 
cursoroSQ; 

if (restoreflag = 'X 1 ) restorevisitO; 

defaultvalues[40] = 'X 1 ; 

checkxoomO; 

writedefaultsO; 

if (CARD = 0x4343) 

{ 

changetimer(TIMERO,timerO); 
changetimer(TIMERl ? timerl); 
changetimer(TIMER2 J timer2); 
getselectwaveO; 

} 

} 

void addstatsO 

{ 

int key; 

key=operationinfo("upvstat" , 1 0,5,yeskey); 
if(key = *Y') { 

totalvisit++; 

totaltime=totaltime+tused; 
defaultvalues[25]=totalvisit; 
defaultvalues[26]=totaltime/0x0 1000; 
defaultvalues[27]=totaltime - defaultvalues[26]; 
defaultvalues[31]++; 

} 

start_timeO; 

wcursor(wnd Jiming, 16,3); 
tused=0; 

wprintf(wnd_timing J M %3. If minutes ",tused/60); 

} 

void clear_yisitstats(iiit otherflag) 

{ 

int key; 

key^operationinfo( M ClearVt , ',20,4,yeskey); 
if(key = 'Y') { 

defaultvalues[25] = 0; /* totalvisits */ 



defaultvalues[26] = 0; /* totaltimehigh */ 
defaultvalues[27] = 0; /* totaltimelow */ 
defaultvalues[32] = 100; /* vtypeA */ 
defaultvalues[33] = 75; /* vtypeB */ 
defaultvalues[34] = 50; /* vtypeC */ 
defaultvalues[35] = 25; /* vtypeD */ 
defaultvalues[36] = 100; /* amount */ 
if (otherflag) { 

defaultvalues[28] = 0; /* usedeletes */ 
defaultvalues[29] = 0; /* useprints */ 
defaultvalues[30] = 0; /* useA */ 
defaultvalues[3 1] = 0; /* useB */ 

} 

useA-H-; 

} 

} 

void timingwindow(int otherflag) 

{ 

getdefaultsO; 

showline("msg_Totaltime "); 

wprompt(wnd_timing, 1 6 ? 7,msg_line); 

wprintf(wnd Jiming, "%4 . 1 f " ,totaltime/60); 

showline("msg_minutes "); 

wprintf(wnd_timing 5 msg_line); 

showline("msg_Totalvisits "); 

wprompt(wnd_timing , 1 4, 8 ,msg_line) ; 

wprintf(wnd_timing 5 MO /od M 3 totalvisit); 

showline("msg_Averagetime "); 

wprompt(wnd_timing s 4 3 9 ? msg_line); 

if (totalvisit = Q) wprintf^wndJiming/O.O "); 

else wprintf(wnd _timing ? "%4 .If " ? (totaltime/60)/totalvisit); 

showline("msg_minutes "); 

wprintf(wnd_timing 5 msg_line); 

if (otherflag) { 

wprompt(wnd_timing ? 6 3 10 s "l: "); 

wprintf(wnd_timing ? M %d " ,usedeletes) ; 

wprompt(wnd_timing 5 16 5 10 5 M 2: "); 

wprintf(wnd_timing 5 M %d n 5 useprints); 

wprompt(wnd_timing ? 26,10 ? n 3: "); 

wprintf(wnd Jiming, "%d " ,useA) ; 

} 

} 



void timeinfoO 



{ 

struct tm *tm_now; 
long secs_now; 
long past_secs=0; 
char *str_now; 
int oflag=0; 
int key=0; 

wnd_timing = estabhsh_window( 10,4, 13,60); 
showline("msg_VisitTime "); 
set_title(wnd_timing 5 msg_line); 
se^colorsCwnd^timin&ALL^^LACK^DlM); 

set_colors(wndJimingACCENT 5 WHTTE ? BLACK 3 DIM); 

display_window(wnd_timing); 

amount=vtypel; 

showline( M msg_NOWTIME "); 
wprompt(wnd_timing ? 6 3 l,msg_line); 
showline("msg_STARTTIME "); 
wprompt(wnd_timing, 6,3, msg_line) ; 
showUne( H msg_DURATIONTrME H ); 
wprompt(wnd_timing, 6, 5 ,msg_line); 
setmenuhelp("timing ",10,1 0); 
timingwindow(oflag); 
while (key != ESC) { 

wcursor(wnd_timing, 1 3,3); 

wprintf(wnd_timing, n %s",ctime(&time buffer time))* 
while (kbhitO = 0) { 
cursoroff(); 
time(&secs_now); 
tm_now = localtime(&secsjiow); 
str_now = asctime(tm_now); 
str_now[24] = 0; 
if(secs_now !=past_secs) { 

wcursor(wnd_timing, 1 0, 1); 

wprintf (wnd_timing, n %s ",strjaow); 

past_secs=secs_now 

} 

stop_time(3; 

tused = difftime(tstop,tstart); 
wcursor(wnd_timing, 1 6, 5); 
wprintf(wnd_timing, " %3 . 1 f n ,tused/60); 
showline("msg_minutes "); 
wprintf(wnd_timing ? msg_line); 

key = get_charO; 
key = toupper(key); 



switch(key) { 

case DEL: clear_yisitstats(oflag); break; 
case |: oflag = 1; break; 
case INS: addstatsO; break; 
default :break; 

} 

writedefaultsO; 
timingwindow(oflag); 

} 

delete_window(wnd_timing); 

} 



void boogieoutO 

{ 

SioPutc(SerPort,OxBB); 

stopwaveO; 
defaultvalues[40] ='• '; 

writedefaultsO; 
set_ctl_brk(l); 

ClearDCMO; 
exit(O); 

} 



